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ABSTRACT 
Seeeeees 


THIS PROGRAM ALLOWS THE USER TO CHECKOUT OR DEBUG 

KITI4°H(UNIBUS INPUT/OUTPUT INTERFACE), 

TO TEST, THE USER SIMPLY CONNECTS OUTPUT MODULE(S) 

TO INPUT MODULE(S) (SEE SECTION 4,4), THROUGH THE SOFT#ARE MONITOR, 
THE . SER ENTERS ADDRESS OF THE INPUT AND OUTPUT : 
MODULES, THEIR VECTOR ADDRESSES, AND HOw THE ‘ 
USER HAS CONNECTED THEM TOGETHER(FOR TEST 

PURPOSES) (SEE SECTION 4,5), THIS PROGRAM CAN BE RUN IF 

A TELETYPE (OR TERMINAL) DOESN’T EXIST (SEE SECTION 4,6), 


REQUIREMENTS 
SORHHODOROES 


EQUIPMENT 


A, PDPeli/wITH 4K CORE (OR MORE) 

B, KITiLieHT 

C, KITiteH/WITH ONE OR MORE INPUT AND ONE OR MORE OUTPUT MODULES 
AND ONE OR TWO M7821(OR COMPERABLE MODULE) 


STORAGE 


THIS PROGRAM OCCUPIES CORE LOCATIONS 00000012000 


LOADING PROCEDURE 
CHFSSEH FERED HOHOD 


METHOD 


PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED! 


1, ABSOLUTE LOADER MUST BE IN MEMORY, 

2. PLACE BINARY TAPE IN READER, 

3, LOAD ADDRESS #7500 (# DETERMINED BY LOCATION OF acishinet 
4, PRESS "START" (PROGRAM WILL LOAD), 


STARTING PROCEDURE 
SOHSHEHS GHEDESECED 


CONTROL SWITCH SETTINGS 


STARTING AT ADDRESS 200 OR 210 ALL SWITCHES SHOULD BE SET AS INDICATED, 
STARTING ADDRESSES 


(A) IF 1/0 TERMINAL (1,E, TELETYPE) EXISTS LOAD AND 
START AT LOCATION 200, SEE SECTION 4,5, é 


CB) IF NO 1/0 TERMINAL EXISTS LOAD AND START AT LOCAT§ON 210, 
NOTEs IF NO 1/0 TERMINAL EXISTS, FOLLOW PROCEDURE FOR NO TERMINAL SECTION 4,6, 





PROGRAM 


AND /OF 


OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY, 


SET SWITCH REGISTER TO STARTING ADDRESS, 


LOAD ADDRESS, 


SET SWITCHES = 0, 
PRESS START 
THE PROGRAM WILL TYPE AN "e#* IF STARTED AT SA200, 

OR HALT AT LOCATION 7212 IF STARTED AT SA210, USING THE FORMAT SPECIFIED IN 4,5 
4,6,ENTER IN THE NECESSARY INFORMATIGN ABOUT KITI1°H AS FOLLOWS, 


OR 
1) 


2) 


3) 


4) 


1ST INPUT MODULE*’S ADDRESS (EXAMINE THE M105 IN SLOT BO2 TO DETERMINE ADDR), 
IS 164000 (JUMPER 11 CUT), 


INITIAL DEFAULT ADDR 
1ST OUTPUT MODULE’S ADDRESS (EXAMINE THE M105 IN SLOT BO3 TO DETERMINE ADDR), 


INITIAL DEFAULT ADDR IS 164010 (JUMPERS 11 AND 3 CUT), 


HOW INPUT AND OUTPUT MODULES HAVE BEEN CABLED FOR TEST 
(WHAT INPUT MODULES HAVE BEEN CONNECTED TO wHAT OUTPUT MODULES), 


VECTOR ADDRESS OF MODULES SELECTED FOR TEST (V1 AND V2), 

(EXAMINE THE “7821 IN SLOT FO2 TO DETERMINE THE VECTOR ADDR, OF 

THE 1ST TWO INPUT MODULES OR THE M7621 IN SLOT FO4 TO DETERMINE THE 
VECTOR ADDR, OF THE 2ND TWO INPUT MODULES), 


INITIAL DEFAULT VECTORS ARE 170 (JUMPERS 7 AND 6 CUT) AND 270 (JUMPERS 6 AND 8 CUT), 


¢ 
ALL INFORMATION MUST BE ENTERED OR AN ERROR WILL OCCUR IF STARTED, 


ALSO, ALL ADDRESSES MAY NOT BE ODD, NOR ANY VECTOR ADDRESS BE ABOVE 1000, 


CONNECTING MODULES 


TO TEST KITileH, THE INPUT MODULES MUST BE CABLED TO OUTPUT MODULES, 
IF USING A BCOB8R CABLE FOR CONNECTION, YOU MUST NOT "TWIST" THE 
CABLE; THAT ISs THE SMOOTH SIDE OF THE CABLE MUST BE UP ON THE 


INPUT AND DOWN ON THE OUTPUT MODULES, 


ONE OR MORE GROUPS OF MODULES MAY BE TESTED AT 
SEE THE CHART BELOW FOR MODULE’S NUMBER, FUNCTION AND SLOT, 


ONE TIME, 
MODULE NO, 


@awov' 2 wa = 


‘ «gis 


SLOT 


E01 
E02 
E03 
E04 
Cp01 
CD02 
Cd03 
CD04 


FUNCTION 


isT, 
2ND, 
3JRD, 
4TH, 
iST, 
2ND, 
3RD, 
4TH, 


INPUT MODULE 
INPUT MODULE 
INPUT MODULE 
INPUT MODULE 
OUTPUT MODULE 
OUTPUT MODULE 
OUTPUT MODULE 
OUTPUT MODULE 














4,5 DIRECTIVE SUMMARY (IF I/0 TERMINAL EXISTS) 


THE SOFTWARE MONITOR ALWAYS TYPES AN "@" WHEN IT IS READY TO 
ACCEPT A COMMAND, THE FOLLOWING ARE A LIST OF COMMANDS THAT 
CAN BE MADE WHEN IT 15 IN THIS MODE; THEY CAN BE ENTERED IN ANY 
ORDER AND CHANGED AT ANYTIME wHILE IN COMMAND MODE, 


NOTES 
"=" INDICATES CARKIAGE RETURN, 


ALSO RUBOUT MAYBE TYPED TO DELETE PREVIOUSLY TYPED CHARACTER(S), 


COMMAND FUNCTION 
otewann seesseee 

ALS1XXXxX0W SET ADDRESS 1XXXXO AS 1ST, ADDR, OF INPUT MODULES(S), 
AOSLXXXXO. SET ADDRESS 1XXXXO AS 1ST ADDR, OF OUTPUT MODUL(S), 
VI XXX SET XXX AS VECTOR ADDR, OF 1ST GROUP OF INPUT MODULES, 
VZEXKXe SET XXX AS VECTOR ADDR, OF 2ND GROUP OF INPUT MODULES, 
F(ULLI. INDICATES TO PROGRAM THAT INPUT AND OUTPUT MODULES 


ARE CONNECTED(FOR TEST) IN THE FOLLOWING MANNER 
1ST INPUT MODULE TO 1ST OUTPUT MODULE 
2ND INPUT MODULE TO 2ND OUTPUT MODULE 
3RD INPUT MODULE TO 3RD OUTPUT MODULE 
4TH INPUT MODULE TO 4TH OUTPUT MODULE, 


1<6, INDICATES TO PROGRAM THAT THE 1ST INPUT 
MODULE IS CONNECTED (FOR TEST) TO 2ND OUTPUT MODULE, 
NUMBERS 1 THROUGH 4 ARE USED TO REPRESENT INPUT MODULES 
1 TO 4, NUMBERS Se8 ARE USED TO REPRESENT OUTPUT 
MODULES 1 TO 4({RESPECTIVELY), 
THIS MODE OF ENTRY IS USED TO SHOW SINGLE 
CONNECTIONS BETWEEN INPUT AND OUTPUT MODULES, OR 
IF AN ERROR OCCURS, TO ISOLATE A BAD MODULE BY MAKING 
A NEW PAIR OF CONNECTED MODULES, ALWAYS USE THE 
FORM "INPUT MODULE < OUTPUT MODULE,” 


DC ISCONNECT).. DISCONNECT (FROM THE PROGRAM) ALL MODULES, 
) CAN BE USED TO DISCONNECT MODULES AND ONLY CONNECT 
> i PAIR OF INPUT AND OUTPUT MODULES IF AN ERROR ( 
OCCURS (UNDER TEST) OR IS DESIRABLE TO RUN ONLY ONE PAIR 
OF MODULES, IF TESTING ONE PAIR OF MODULES AT 
A TIME, ALWAYS DISCONNECT (FROM PROGRAM) THE ( 
PREVIOUSLY CONNECTED PAIR, 


MCAP). PRINT OUT ALL ADDRESSES, VECTORS AND CONNECTIONS ( 
AS THE PROGRAM HAS INTERPETED THEM, 


SC(TART). START TEST, NOTES ALL NECESSARY ADDRESSES { 
AND VECTORS MUST HAVE BEEN ENTERED FOR CONNECTIONS 
INDICATED, AND AT LEAST ONE CONNECTION MUST 
HAVE BEEN MADE OR THE PROGRAM WILL TYPE 4 
OUT AN ERROR AND RETURN TO COMMAND MODE, 





Y 


a CONTROL AND "C" TYPED SIMULTANEOUSLY w#ITLL 
BRING THE PROGRAM FROM FUN MODE BACK TO 
COMMAND MODE (IF THE PRESENT TEST IS 
NOT TESTING INITIALIZATION (RESET INSTRUCTION)), 


“PF CONTROL AND "FR” TYPED SIMULTANEOUSLY WILL CAUSE 
THE NUMBER OF PASSES AND NUMBER OF ERRORS (IN OCTAL) 
TO BE TYPED OUT, THE PROGRAM WILL THEN RETURN 
TO THE MODE OF OPERATION IT WAS DOING PRIOR 
TO “R (EITHER "RUN MODE" OR “COMMAND MODE"), 


4,6 DIRECTIVE SUMMARY (IF NO I/0 TERMINAL EXSISTS) 


A HALT AT LOCATION 7212 INDICATES PROGRAM IS 

IN COMMAND MODE, ENTER COMMAND IN SWITCH REGISTER BIT O°3 AND PRESS CONTINUE, 
ALL DIRECTIVES EXCEPT START COMMAND WILL HALT AT 

LOCATION 7226 FOR ENTRY OF AN ADDRESS IF NEEDED, WHEN 

RUNNING WITH NO TERMINAL MAKE SURE THAT PROGRAM HAS 

HALTED AT THESE LOCATIONS, SINCE IF AN ERROR OCCURED IN 

ENTERING ADDRESSES AN ERROR HALT WILL DCCUR AT LOCATION 

7466, AFTER THE PROGRAM HAS BEEN STARTED AT 210, IT MAY 

BE RESTARTED AT 1000 AND IT WILL REMAIN IN “NO TERMINAL MODE," 


FOR COMMAND MODE HALT AT 72128 
SWITCH REGISTER ACTION FUNCTION 


0 PRESS CONTINUE START TEST, ANY FURTHUR 
HALTS INDICATES AN ERROR HAS OCCURED, 


2 PRESS CONTINUE ENTER INPUT MODULE ADDR, IN SWITCH REGISTER PRESS 
CONTINUE, NEXT HALT SHOULD BE COMMAND MODE HALT, 


4 PRESS CONTINUE ENTER OUTPUT MODULE ADDRESS SWITCH 
REGISTEF@PRESS CONTINUE, NEXT HALT SHOULD 
BE COMMAND MODE HALT, 


6 PRESS CONTINUE ENTER VECTOR ADDR, IN SWITCH REGISTER OF 
1ST, GROUP OF INPUT MODULES@PRESS CONTINUE 
NEXT HALT SHOULD BE COMMAND MODE HALT, 


10 PRESS CONTINUE SAME AS ABOVE ONLY FOR 2ND GROUP 
i OF INPUT MODULES, { 


12 PRESS CONTINUE PRESS CONTINUE AGAIN, THIS IS USED TO 
DISCONNECT (FROM THE PROGRAM) ALL MODULES, CAN f 
BE USED TO CISCONNECT ALL MODULES AND ONLY 
CONNECT 1 PAIR OF INPUT AND OUTPUT MODULES IF AN 
ERROR OCCURRED (DURING TEST) OR IF IT°S DESIRABLE 4 
TO RUN ONLY ONE PAIR OF MODULES, NEXT HALT 
SHOULD BE COMMAND MODE HALT, 


i4 PRESS CONTINUE PRESS CONTINUE AGAIN, INDICATES TO 
PROGRAM THAT THE USER HAS CONNECTED THE 
INPUT AND OUTPUT MODULES IN THE FOLLOWING ORDER? 3 
iST INPUT TO 1ST OUTPUT MODULE 
2ND INPUT TO 2ND OUTPUT MODULE 








> 3RD INPUT TO 3RD OUTPUT MODULE 
4TH INPUT TO 4TH OUTPUT MODULE 
AND DESIRES TU TEST ALL @ PAIRS AT ONE TIME, 
NEXT HALT SHOULD BE COMMAND MODE HALT 


16 PRESS CONTINUE THIS DIRECTIVE IS USED TO SHOw 

HOW ONE PAIR OF MODULES ARE 
CONNECTED, IT MAY BE USED TO SHO» UNUSAL 
CONNECTIONS OF SINGULAR CONNECTIONS FOR 
TEST WHEN ONLY ONE PAIR CAN BE RUN AT ONE 
TIME, ENTER CONNECTION IN FOLLOWING 
MANNERS IN SWR BITS 0#2 ENTER BINARY OF 
NUMBER OF INPUT MODULE (NUMBERS RUN FROM 1 TO 4 
FOR 1ST THROUGH 4TH INPUT MODULE); IN SwR BITS 36 
ENTER BINARY OF NUMBER OF OUTPUT MODULE THAT 
IS CONNECTED TO INPUT MODULE (NUMBERS RUN FROM 
5-8 FOR 1ST THROUGH 4TH OUTPUT MODULE), 
EXAMPLE: 1000001 WOULD SHOW 1ST INPUT 
MODULE (001) wAS CONNECTED TO 4TH OUTPUT 
MODULE (1000), 
PRESS CONTINUE AFTER ENTERING CONNECTIONS 

- IN SWITCH REGISTER NEXT HALT SHOULD 
BE COMMAND MODE HALT, 


NOTES DIRECTIVES CAN BE ENTERED IN ANY ORDER AND 
AT ANY TIME WHILE IN COMMAND MODE, 


OPERATING PROCEEDURE 
CHEHHEHSH CHOKE HHEOS 


OPERATIONAL SWITCH SETTINGS 
S®@e ee e2e2e222 SF88020C02 Feaeeeceo : 

I 
AFTER ENTERING NECESSARY INFORMATION AND STARTING TEST IN THE 
MANNER PRESCRIBED IN 4,5 OR 4,6 THE FOLLOWING SWITCH REGISTER OPTIONS 
ARE AVAILABLE? : 


SWITCH REGISTER FUNCTION 

S®eeene 282282290290 eeeeeaneo 

SWiSe#i OR UP HALT ON ERROR 

Swi4s] OR UP LOOP ON TEST : 

SWi3ei OR UP INHIBIT PRINTOUT OF ERROR 
SWii81 OR UP INHIBIT ITERATIONS 

SW108} OR UP INHIBIT PRINTOUT OF "END PASS" 


NOTE! WHEN PROGRAM IS RUN WITH NO I/O TERMINAL (SA210) PROGRAM WILL 
HALT UPON DETECTION OF ERROR WHETHER OR NOT SRi521, 


SCOPE LOOPS 


IF AN ERROR OCCURS AND THE USER WISHS TO SCOPE ERROR, HE 

SHOULD SET SWiSsei TO HALT ON ERROR, THEN WHEN PROGRAM HALTS 

ON ERROR, HE SHOULD SET SWiS5S80, SET SWi4=1 (LOOP ON CURRENT TEST), 
AND Sw¥i3#1 (TO INHIBIT PRINTOUT OF ERROR), 








PROGRAM AND/OP OPERATOR ACTION 


THE FIRST PASS THROUGH THE TESTS *ILL BE “ADE WITH ITERATIONS 

INHIBITED, SUCCESSIVE PASSES WILL ENABLE ITERATIONS IF SwWii#0, “END PASS" 
1S PRINTED AT END OF A PASS IF AW 1/0 TERMINAL EXISTS. IF ONE DOES NOT 

THE OPERATOR CAN EXAMINE LOCATION 1216 TO SEE HOW MANY PASSES 

HAVE BEEN COMPLETED, 

“C (CONTROL AND LETTER C) MAY BE TYPED AT ANY TIME TO BRING PROGRAM 

BACK TO COMMAND MODE IN ORDEP TO CHANGE ANY PARAMETER, 

“R (CONTROL AND LETTER B® ) MAY BE TYPED AT ANY TIME TO GET 

A RUN SUMMARY CONSISTING OF NUMBER OF PASSES AND NUMBER 

OF ERRORS (IN OCTAL), 


ERRORS 
eVeeee 


ERROR PRINTOUT * ’ 


PRINTOUT VARIES WITH THE ERROR DETECTED, THE ERROR PC TYPED OUT 
IS THE ACTUAL LOCATION OF THE ERROR CALL, IN THE DATA TEST 
ERROR TYPEOUT,"DATA EXP’D" IS THE COMPLIMENT OF THE DATA SENT, BUT 
IT REPRESENTS WHAT DATA THE INPUT MODULE SHOULD HAVE SENT TO 
PROCESSOR, 

A HALT AT LOCATION 7466 WHEN RUNNING WITH NO TERMINAL 

INDICATES AN ERROR HAS OCCURED, TO FIND OUT THE NUMBER 

OF THE ERROR, EXAMINE LOCATION 1236, THIS IS THE ITE™ 

NUMBER OF THE ERROR, TO FIND OUT WHAT THE ERROR TYPOUT 

WOULD HAVE BEEN GOTO TO THE ERROR POINTER TABLE BEGINNING 

AT LOCATION 1306, 


EXAMPLE 


IF WE EXAMINED LOCATION 1236 AND FOUND A 5 (101) 
WE GO TO LOCATION 1306 AND LOOK THROUGH THE ERROR POINTER 
TABLE UNTIL WE FOUND ITEM S, THE INFORMATION WOULD LOOK LIKEs 


sITEM 5S FROM DUAL ADDRESS TEST 
EMS )DUAL ADDRESS ERROR 
DH3 JERROR ADDR ADDR ADDR 
1PC OUT IN DUAL ? 
DT3 1SERRAD/STMPO, SGDADR, SBDADR 
DFi 10 


TO FIND OUT THE INFORMATION SPECIFIED BY DT3 (SERRAD, STEMPO, SGDADR, SBDADR) 
FOLLOW THESE STEPS! 


(1) LOOK UP THE ADDRESS OF THE LABLE(I,£, SERRAD) IN THE SYMBOL TABLE (WHICH 
FOLLOWS THE LISTING) 

(2) PUT THIS ADDRESS IN THE SWITCH REGISTER AND DEPRESS THE LOAD ( 
ADDRESS SWITCH ON THE PROCESSOR’S CONSOUL, 

(3) NOW DEPRESS THE EXAMINE SWITCH, 

(4) THE DATA DISPLAYED IN THE DATA LIGHTS IS THE INFORMATION ( 
THAT WOULD HAVE BEEN PRINTED FOR THIS LABLE IF YOU HAD A 
INPUT/OUTPUT TERMINAL, 











8,0 


9,0 





RESTRICTIONS 
SCOCCCCOREEE®S 


STARTING RESTRICTION 


IF THE VECTOR ADDRESS OF ANY INPUT MODULE IS 200 OR 210 
THE PROGRAM MUST BE RESTARTED AT LOCATION 1000 


MISCELLANEOUS 
COOREROEDO DES 


EXECUTION TIME 


0,5 MIN, ITERATIONS INHIBITED 
5,0 MIN, WITH ITERATIONS (FOR EACH CONNECTION) 


PROGRAM DISCRIPTION 
SCOOOHOH SHHRSEDOOES 


THE TESTS ARE DIVIDED INTO TWO PARTS: (1) TESTS TO CHECK OUT 

ONE PAIR OF CONNECTED MODULES? AND (2), TESTS TO CHECKOUT ALL 

PAIRS OF CONNECTED MODULES AT ONE TIME, 

PART ONE TAKES EACH PAIR OF CONNECTED MODULES THOUGTH THE FOLLOWING TESTS: 


(A) 
(B) 
(C) 
(D) 
(E) 
(F) 
(G) 


CH) 
(I) 
(J) 


COUNT PATTERN (UP) 

COUNT PATTERN (DOWN) 

RANDOM DATA TEST ' 

BYTE OPERATION TEST 

INTERRUPT TEST*PROCESSOR AT PRIORITY ZERO 

INTERRUPT TEST@PROCESSOR AT PRIORITY FOUR 

INTERRUPT TEST@PROCESSOR AT PRIORITY FIVE 

NOTES THE FIRST TWO INPUT MODULES’ PRIORITY IS FIVE, THEREFORE THEY SHOULD NOT INTERRUPT, 
THE SECOND TWO INPUT MODULES’ PRIORITY IS SIXeTHEY SHOULD INTERRUPT, 

INTERRUPT TEST*PROCESSOR AT PRIORITY SIX 

INTERRUPT TEST*PROCESSOR AT PRIORITY SEVEN 

INITIALIZATION TEST 


, 


PART TWO CHECKS ALL PAIRS OF CONNECTED MODULES IN THE FOLLOWING TESTS: 


(A) 


DUAL ADDRESSING TEST 


THE INPUT MODULE’S ADDRESS (IN A PAIR) 1S SENT TO ITS*® OUTPUT MODULE, 
AFTER DOING THIS FOR ALL CONNECTIONS,EACH INPUT MODULE IS READ, IF 
ANYTHING OTHER THAN ITS’ ADDRESS IS READ FROM IT AN ERROR HAS OCCURED, 








(8) INTERRUPT ORDER TEST 


ALL INTERPPUPTS ARE FIRST LOCKED OUT, DATA IS SENT TO ALL OUTPUT 

MODULES INK THE CONNECTIONS, WNOw INTERRUPTS ARE ENABLED AND TIME 

ALLOWED FOR INTERKUPTS TO OCCUR, AS THEY OCCUR, A NUMBER IS PLACED ON A 

STACK REPPESENTING THE ORDER IN WHICH THE INTERRUPT TOOK PLACE, 

INPUT MODULE #3 SHOULD INTERRUPT BEFORE INPUT MODULE 84, wHICH SHOULD 
INTERPUPT BEFORE INPUT MODULE #1, #81 SHOULD INTERRUPT BEFORE INPUT MODULE #2, 


LISTING 
Co D00Re 








Li 











MAINDEC@11¢eDZKHAoA MACY11,024 2@<eJANe74 10308 
DZKHA,SPC TABLE OF CONTENTS 
14 OPERATIONAL SwIICH SETTINGS 
24 BASIC DEFINITIONS 
115 TRAP CATCHER 
122 STARTING ADDRESS(ES) 
135 TYPE ROUTINE 
189 COMMON TAGS 
227 ERROR POINTER TABLE 
340 TESTS 
783 HANDLERS 
1171 END OF PASS ROUTINE 
1193 SCOPE HANDLER ROUTINE 
1236 ERROR HANDLER ROUTINE 
1259 ERROR MESSAGE TYPEOUT ROUTINE 
1307 BINARY TO OCTAL (ASCII) AND TYPE 
13864 RANDOM NUMBER GENERATOR ROUTINE 
14286 TRAP DECODER 
1443 TRAP TABLE © 


1456 


POWER DOWN AND UP ROUTINES 





MAINDEC #13 eDZKHACA 
DZKHA,SRC 

i 

4 

3 

4 

5 

6 

9 

8 000001 

o 000000 
10 
11 
12 
ij 
14 
i5 
16 
i7 
18 
19 
20 
21 
22 
23 
24 001100 
25 
26 
27 177776 
28 
29 177570 
30 177570 
31 
32 
33 000000 
34 000001 
35 000002 
36 000003 
37 000004 
38 000005 
39 000006 
40 000007 
41 
42 
4a 
a4 
45 100000 
46 040000 
47 020000 
48 010000 
49 004000 
$0 002000 
$i 001000 
32 000400 
33 000200 
54 000100 
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eTITLE MAINDEC “11 °¢DZKHACA 
s®COPYRIGHT (C) 1973 
s®DIGITAL EQUIPMENT CORP, 
p@MAYNARD, MASS, 01754 


Bed 

s®PROGRAM BY ED BADGER 

STNei 

$3580 

oS8TTL OPERATIONAL SWITCH SETTINGS 

s@ 

3@ SwITCH USE 

| aed Ser one SeseeeGceesoeec ae eenane seca 
Bid is HALT ON ERROR 

Ted i4 LOOP ON TEST 

;0 13 INHIBIT ERROR TYPEOUTS 
Bd ii INHIBIT ITERATIONS 

I 10 INHIBIT PRINTOUT OF "END PASS" 
eSBITL BASIC DEFINITIONS 


P®INITIAL ADDRESS OF THE STACK POINTER eee 1100 eve 
STACKs 1100 
EQUIV EMT,ERROR 
eEQUIV I0T,8COPE 
PSs 177776 
eEQUIV PS,PS* 
SwRe 177570 


pBASIC DEFINITION OF ERROR CALL 
sBASIC DEFINITION OF SCOPE CALL 
PROCESSOR STATUS WORD 


SWITCH REGISTER 


DISPLAY#SwWr 

P@GENERAL PURPOSE REGISTER DEFINITIONS 

ROS 0 pGENERAL REGISTER 
Ris 81 : IGENERAL REGISTER 
R28 $2 3 yGENERAL REGISTER 
Rjs 3 IGENERAL REGISTER 
R4s $4 #GENERAL REGISTER 
RSs %5 sGENERAL REGISTER 
R68 %6 sGENERAL REGISTER 
R7s8 %? sGENERAL REGISTER 


sSTACK POINTER 
#PROGRAM COUNTER 


esEQUIV R6,5P 
eEQUIV R7,PC 


p@"SWITCH REGISTER* SwITCH DEFINITIONS 
Swiss 100000 

Swi4s 40000 

SWi3s 20000 

Swi2zs 10000 

SwWiis 4000 

Swiods 2000 

Swog9e 1000 


SwOegs 400 
Swo7s 200 
Swo06és 100 





MAINDEC@11eDZKHAeA 
OZKHA,SFC 

$5 000040 
56 000020 
57 000010 
58 000004 
59 000002 
60 000001 
61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

74 

72 

73 100000 
74 040000 
75 020000 
76 010000 
77 004000 
78 002000 
79 001000 
80 000400 
81 000200 
62 000100 
83 000040 
84 000020 
85 000010 
86 000004 
87 200002 
86 000001 
89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
103 000004 
102 000010 
103 000014 
104 000014 
ios 000014 
106 000026 
107 000024 
108 000030 


MACY131,024 28eJAN~-74 
BASIC DEFINITIONS 


Sn058 
Sa04s 
SwO3s 
Su02s 
Se0ise 
S“00s 
EQUIV 
EQUIV 
EQUIV 
eEQUIV 
eEQUIV 
eEQUIV 
eEQUIV 
eEQUIV 
eEQUIV 
eEQUIV 


p®DATA 
BITiSs 
BITi4s 
BITi3s 
BITi2s 
BITiis 
BITios 
BITO9e 
BITOss 
BITO?7s 
BITO6Gs 
BITOSs 
BITO4ea 
BITO3s 
BiITO2s 
BITOis 
BITOOs 
eEGUIV 
eEQUIV 
eEQUIV 
gEQUIV 
eEQUIV 
eLQUTV 
eEQUIV 
sEQUTIYV 
~EQUIV 
EQUIV 


10:08 PAGE 2 


S$w09,SW9 
SW08,S56 
Sw07,8wW7 
$806,566 
$005,885 
SwO4,SW4 
$803,503 
S$#02,SW2 
Sa#01,S1 
Sw00,SW0 


BIT DEFINITIONS 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 ; 

i 

BITO9,BIT9 
BITO8, BITS 
BITO?,BIT? 
BIT06,BIT6 
BITOS,BITS 
BITO4,BIT4 
BITO3,81T3 
BIT02,81T2 
BITO1,B1Ti 
BITOO,BITO 


(SITOO TO BITI5) 


S@BASIC "CPU" TRAP VECTOR ADDRESSES 
ERRVECs 4 

RESVECs 10 
TBITVEC#i4 
TRIVEC® 14 
BPTVEC= 14 
IOTVECs 20 
PWRVEC® 24 
EMTVECs® 30 


pTIME OUT AND OTHER ERRORS 
pRESERVED AND ILLEGAL INSTRUCTIONS 
g"T" BIT 

gTRACE TRAP 

#BREAKPOINT TRAP (BPT) 
sINPUT/OUTPUT TRAP (IOT) #eSCOPEee 
9POWER FAIL 

pEMULATOR TRAP (EMT) ##ERRORG® 





Ll 











MAINDEC eli SDZKHA@A 
DZKHA,SRC 


109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
133 
132 
: 33 
134 
135 
136 
137 
138 
139 
140 
143 
142 
143 
144 
145 


000200 
000210 
001000 


001100 
001102 
001104 
001105 
00131206 
001107 


001110 
oo1114 
0023136 
001120 


000034 


000000 


000200 


000137 
000210 
000137 
001000 
000137 


001100 


177564 
177566 
000 
002 
012 
000 


105737 
001402 
000000 
000407 


MACY11,.6024 28°JAN@=74 





10:08 


PAGE 3 


BASIC DEFINITIONS 


005542 
007200 
005542 


001107 


TPAPVEC#34 »*TRAP" TRAP 


eEQUIV EMT, ERROR 


eSBTITL TRAP CATCHER 

220 

s®ALL UNUSED LOCATIONS FROM 4 = 776 CONTIAN A ",02,HALT” 
s®SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
s®LOCATION O CONTAINS © TO CATCH IMPROPERLY LOADED VECTORS 


»SBITL STARTING ADDFKESS(ES) 
23200 
JMP @SSTAP JUMP TO STARTING ADDRESS OF PRUGRAM 
o#210 
JMP NTH 9GOTO NO TERMINAL HANDLER 
221000 
JMP STAR sRESTART ADDRESS 1000 
021100 


eSBTTL TYPE ROUTINE 


P@ROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A O BYTE, 
p®THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 


peNOTEL 3s SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
p@NOTE23 SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 

p@NOTE 38 SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 

s®CALLI 

91) USING A TRAP INSTRUCTION 

pe TYPE eMESADR sMESADR IS FIRST ADDRESS OF AN ASCIZ SIRING 
3#OR 

Tad TYPE 

9@ MESADR 


92) USING A JSR INSTRUCTION 


Tod MOV PS,e(SP) )PUSH-PROCESSOR STATUS WORD ON THE STACK 
Bad JER. PC, STYPE pCALL TYPE ROUTINE 

MESADDR #FIRST ADRESS OF MESSAGE 

STPS:3 177564 sTTY PRINTER STATUS REG, ADDRESS 

STPB3 177866 sTTY PRINTER BUFFER REG, ADDRESS 

SNULL: ,BYTE ICONTAINS NULL CHARACTER FOR FILLS 


sCONTAINS @ OF FILLER CHARACTERS REQUIRED 
2 pFILL CHARS, AFTER A "LINE FEED" 


SFILLCS ,BYTE 
p"TERMINAL AVAILABLE" FLAG (O08YES) 


0 
SFILLS! ,BYTE 2 
i 
STPFLG: ,BYTE 0 


STYPEs TSTB STPFLG 91S THERE A TERMINAL? 
BEQ is pBR If YES 
HALT SHALT HERE IF NO TERMINAL 
BR 38 sLEAVE 





MAINDEC@11¢DZKHASA 
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163 001122 010046 
164 001124 017600 
165 001130 112046 
166 001132 001005 
167 001134 005726 
166 001136 012600 
169 001140 062716 
170 901144 000002 
171 001146 004737 
172 001982 123726 
173 003156 001364 
174 001160 013746 
175 

176 001164 105366 
177 001170 002770 
178 0043172 004737 
179 001176 000772 
180 001200 108777 
181 001204 100375 
182 001206 116677 
483 001214 000207 

f 





MACY11.624 
TYPE KOUTINE 


000002 


000002 


001200 
001106 


001104 
000001 
001200 


177674 


000002 177666 


28° JAN@T4 


183 


263 


781 


10:0e 


“OV 
“OV 
YC we 
BNE 
TST 
MOV 
ADD 
RTI 
JSR 
CMPB 
BNE 
MOV 


DECK 
BLT 
JSR 
BR 
TSTS 
BPL 
MOVB 
RTS 
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FO,°(SP) 
®2(SP),R0 
(P0)¢,-(SP) 
4§ 

(SP)¢ 
(SP)¢,R0 
82,(SP) 


PC,78 
SFILLC,(SP)¢ 
2$ 
SNULL,=(SP) 


2(SP),@6TPS 
PC 


SAVE RO 

1GET ADDRESS UF ASCIZ SIRING 

1PUSH CHARACTER TO BE TYPED ONTO STACK 
BR If 1T ISN’°T THE TERMINATOR 

SIF TERMINATOR POP IT OFF THE STACK 
RESTORE FO 

pADJUST RETURN PC 

PRETURN 

$GO TYPE THIS CHARACTER 

sI1S IT TIME FOR FILLER CHARS,? 

1IF NO GO GET NEXT CHAR, 

GET s OF FILLER CHARS, NEEDED 

AND THE NULL CHAR, 

sDO0ES A NULL NEED TO BE TYPED? 

18R IF NOeeGO POP THE NULL OFF OF STACK 
1G0 TYPE A NULL 

s LOOP 

WAIT UNTIL PRINTER IS READY 


tLOAD CHAR TO BE TYPED INTO DATA REG, 

















DZKHA,SRC 


184 
185 
186 
187 
188 
189 
190 
194 
192 
193 
194 
S95 
196 
197 
198 
199 
200 
204 

202 
203 
204 
205 
206 

207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 


001216 
001220 
001221 
001222 
001224 
001226 
001230 
001232 
001236 
001237 
003240 
001242 
001244 
001246 
001250 
001282 


001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001303 
001304 


MAINDEC ei 1@DZKHAeA 


000000 
000 
000 

000000 

000000 

000000 

000000 

000000 
000 
000 

000000 

000000 

000000 

000000 

000000 

000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

077 

015 
000012 


MACY11,624 
TYPE ROUTINE 


000000 


26eJANot4 


10:08 
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PP SSSSSHSSSHSSSSSSSSSSSSSHSHRSSHSSSSHSESHESHSEHEHEHOHSEESCHHEEOEOESEEEEESE 


e SBITL 


COMMON TAGS 


P®THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


s®USED IN THE PROGRAM, 


SPASS3 

STSINME 
SERFLG3 
SICNTSs 

SLPADRS 
SLPERR? 
SERTTL! 


SITEMB: 


SERRADS 
SGDADRS 
SBDADR? 
SGDDAT# 
SBDDATSs 
SREGAD? 


SREGO? 
SREGIs 
SREG2! 
SREG3! 
SREG4: 
SREGS3 
STMPO! 
STMPis 
SIMP2: 
STMP 3s 
STIMES! 
SQUESS 
SCRLF? 
SLF: 


»*ORD 
e BYTE 
eBYTE 
eWORD 
e "ORD 
e "ORD 
e WORD 
» “ORD 
»BYTE 
eBYTE 
» WORD 
e WORD 
e WORD 
»4ORD 
» 4ORD 
2 WORD 


e¥ORD 
e¥ORD 
eWORD 
e#ORD 
e WORD 
e WORD 
eWORD 
eRORD 
e¥ORD 
e¥ORD 
0 
eASCII 
eASCII 
eASCIZ 


eocoocodcceo0nCcso ogoocoo0ocoocococoo0o°o97 


4t/ 
<15> 
<12> 


SCONTAINS PASS COUNT 

CONTAINS THE TEST NUMBER 
#CONTAINS ERROR FLAG 

ICONTAINS SUBTEST ITERATION CuUNT 
SCONTAINS SCOPE LOOP ADDRESS 
sCONTAINS SCOPE RETURN FOR ERRORS 
SCONTAINS TOTAL ERRORS DETECTED 
sRESERVEDeeNOT TO BE USED 
sCONTAINS ITEM CONTROL BYTE 
pRESERVEDeeNOT TO BE YSED 


sCONTA 


INS PC OF LAST ERROR INSTRUCTION 


1CONTAINS ADDRESS OF °GOOD’ DATA 


sCONTA 
sCONTA 
sCONTA 
sCONTA 
pWHICH 
sCONTA 
sCONTA 
yCONTA 
sCONTA 
sCONTA 


INS ADDRESS OF °BAD’ DATA 

INS GOOD’ DATA 

INS °BAD’ DATA 

INS THE ADDRESS FROM 
(SREGO) WAS OBTAINED 

INS ((SREGAD)+0) 

INS ((SREGAD)+2) 

INS ((SREGAD) +4) 

INS ((SREGAD)+6) 

INS ((SREGAD)+10) 


ICONTAINS ((SREGAD) +12) 


ps USER 
sUSER 
sUSER 
; USER 
9MAX, 


DEFINED 
DEFINED 
DEFINED 
DEFINED 
NUMBER OF ITERATIONS 


QUESTION MARK 
sCARRIAGE RETURN 


PLINE 


FEED 











‘i 


I 
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222 
223 
224 
225 
226 
227 
226 
229 
230 
233 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
256 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 


001306 


001306 
001310 


001312 
001314 


001316 
001320 


001322 
001324 


001326 
001330 


001332 
001334 


001336 
001340 


001342 
091344 


MAINDEC@-11eDZKHAeA 


007606 
010476 


007524 
000000 


007640 
010611 


007540 
000000 


007703 
010611 


007540 
000000 


007760 
010476 


007524 
000000 





MACY11,6024 28eJANe74 10808 PAGE 6 
COMMON TAGS 


PP PSSSHSSHSHSSHSSHSHHHSSHHESHSHSHSHSHHHSHSHESESHEHECEEHEHEHEEEEEEREEEEES 


eSBITL ERFOR POINTER TABLE 


s®THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 
9@THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
s®LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT, 


p@NOTEL 3 IF SITEMB IS © THE ONLY PERTINENT DATA IS (SERRAD), 
s@NOTE23 EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FULLOwS? 
}* BM »POINTS TO THE ERROR MESSAGE 
:* DH sPOINTS TO THE DATA HEADER 
ho DOT sPOINTS TO THE DATA 
* OF pPOINTS TO THE DATA FORMAT 
SERRTB! 
pERROR@TABLE 
pITE™M FROM DATA TEST 
EMI #SND@RECIEVE DATA ERROR 
DH} sERROR ADOR ADDR DATA DATA 
gPC ouT IN EXP’D IN 
DTi gSERRAD, SGDADR, SBDADR, SGDDAT, SBDDAT 
DFi 90 
sITEM FROM INTERRUPT TEST 
EM2 SINPUT MODULE FAILED TO INTERRUPT 
DH2 sERROR ADDR ADDR PROS 
sPC ouT IN STAT 
DT2 NSERRAD, SGDADR, SBDADR, STMPO 
DF I 30 
,1TEM gINPUT MODULE INTERRUPT AT WRONG PRIORITY 
EM3 P9INPUT MODULE INTERRUPTED AT WRONG PRIORITY 
DH2 sERROR ADDR ADDR PROS 
sPC OuT IN STAT 
DT2 SSERRAD, SGDADR, SBDADR, STMPO 
DF i 90 
sITEM FROM INIT TEST 
EM4 sRESET FAILED TO INITIALIZE INPUT MODULE 
DHi pERROR ADDR ADDR DATA DATA 
9PC OuT IN EXP°D IN 
DTi PSERRAD, SGDADR, SBDADR, SGDDAT, SBDDAT 
DF i 10 
pITEM FROM DUAL ADDRESS TEST 























DZKHA,SRC 


276 
277 
278 
279 
2680 
283 
282 
283 
284 
285 
286 
287 
268 
289 
290 
293 
292 
293 
294 
295 


001346 
001350 


001352 
001354 


001356 


001360 


001362 
001364 


001366 
001370 


001372 
001374 


001376 
001400 
001402 
001404 


003406 
001410 
001412 
001414 


001416 
001420 
001422 
001424 


001426 
001430 
001432 
0013434 


MAINDEC#11eDZKHAeA 


010041 
010706 


007552 
000000 


010066 


011003 


007564 
000000 


010171 
011102 


007600 
000000 


010247 
011137 
000000 
000000 


010275 
011137 
000000 
000000 


010335 
0114137 
000000 
000000 


010376 
011137 
000000 
000000 


28 eJANoT4 
POINTER TABLE 


EMS 
DH3 


DT3 
OF’ 


sI1TEM 


EM6 


DH4 


DT4 
DF i 


sITEM 
EM? 
DHS 


DTS 
DF i 


sITE™M 


Evii 
Di? 
OT6 
DF i 


pITEM 


EMi2 
DH? 
DT6 
DF 


s ITEM 


EM13 
DH? 
DT6 
DF1i 


pITEM 


EMi4 
DH7 
DT6 
DFi 


10:08 


10 


ii 


12 


13 
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ERITR2 


ERCSR 


1DUAL ADDRESS ERROR 
ERROR ADDR ADDR ADDF 


PC OUT IN DUAL 
pSERRAD, GSIMPOs SGDADR, SBDADR 
90 


FROM INTERRUPT ORDER TEST 


INTERRUPTS OUT OF ORDER 

SHOULD BES INTERI>INTER4>INTERS>INTERQ 
pIF ADDR®O THAN NOT UNDER TEST 

ERROR INTER] INTER2 INTERS INTERS 
PC ADDR ADOR ADDR ADDR 
IGERRAD, SREGO, SREGI, SREG2, SREG3 


:FROM CSR INT TEST , 
PINT FAILED TO CLEAR INTR, ENABLE BIT 


pADDR SHOWS INPUT MODULE THAT INTERRUPTED 
sERROR ADDR 


9PC INTR 
SSERRAD STMPO 
90 


CONTROL TEST MONITOR ERROR 


§NO CONNECTIONS MADE 
pPROGRAM NOT RUNNING 
90 
90 


CONTROL TEST MONITOR ERROR 


#NO INPUT MODULE ADDR ENTERED 
yPROGRAM NOT RUNNING 

10 

10 


CONTROL TEST MONITOR ERROR 
#NO OUTPUT MODULE ADDR ENTERED 
pPROGRAM NOT RUNNING 
$0 
90 


CONTROL TEST MONITOR ERROR 


#VECTOR ADDR NOT ENTERED FOR SELECTED CONNECTION 


sPROGRAM NOT RUNNING 
#0 
90 


() 








MAINDECe11@DZKHAeSA 


DZKHA,SRC 
330 
334 
332 001436 
333 001440 
334 001442 
335 001444 
336 


011176 
011536 
000000 
000000 


Seen kT 


MACY11,6024 26eJAN@=74 
ERROR POINTER TABLE 


10:06 





PAGE 6 
pITE™ 14 CONTROL TEST MONITOR FAILURE 
MCRLF I}CARRAGE RETURN LINE FEED 
UNKINi SWRONG INPUT@RETYP IT SU THAT OPERATOR 
DT6 9 0 CAN SEE HIS MISTAKE 
DF i 5 0 


( 


( 
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337 
338 
339 001446 
340 001452 
341 001456 
342 001460 
343 001462 
344 001466 
345 
346 
347 001470 
348 
349 001472 
350 001476 
351 001502 
352 
353 001504 
354 
355 003506 
356 
357 001512 
358 001516 
359 
360 001520 
361 
362 001522 
363 

» 364 001526 

: 365 001532 

- 366 001534 
367 001540 
368 001542 
369 001544 
370 001550 
37% 001554 
372 001556 
373 001562 
374 001564 
375 001566 
376 
377 001572 
376 001576 
379 001602 
380 0016064 
3863 0013610 
382 001612 
383 003614 
364 001616 
385 001622 
386 001626 
367 
368 
389 


MAINDEC ei 1eDZKHAeA 


012706 
012701 
005721 
001006 
020127 
001373 


104010 


000137 
005737 
001003 


104011 
000137 


005737 
001003 


104012 
000137 


005737 
001006 
005737 
003403 
104013 
000137 
005737 
001006 
005737 
001403 
104013 
000137 


005037 
005737 
001005 
105737 
001002 
104400 
011406 
012703 
012705 
012704 


MACY11,024 


TESTS 


001100 
004270 


004300 


005542 
004240 


005542 
004250 


005°42 
004260 
004270 
005542 
004264 
004274 


005542 


004330 
001216 


001107 


004260 
004270 
004250 


28eJANoT4 


»SBITL 
START? 


is? 


START{8 


START2! 


START3! 


START43 


STARTS# 


10:06 


MOV 
MOV 
TST 
BNE 
CMP 
BNE 


ERROR 


JMP 
TST 
BNE 


ERROR 
JMP 


TST 
BNE 


ERROR 
JMP 


TST 
BNE 
TST 
BEG 
ERROR 
JMP 
TST 
BNE 
TST 
BEQ 
ERROR 
JMP 


CLR 
TST 
BNE 
TSTB 
BNE 
TYPE 
MRUN 
MOV 
MOV 
MOV 
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TESTS 





START UP ROUTINE FOR SUBTESTS 


#1100, SP 
®MODSC, Ri 
(1)¢ 
START1 


Ri, @MOD8C +2 


is 


10 


STAR 
MOD{A 
START2 


ii 
STAR 


MODSA 
START3 


i2 
STAR 


MODIV 
START4 
MOoDSC 
START4 
i3 

STAR 
MOD3V 
STARTS 
MODIC 
STARTS 


@MODiV, R3 
SMODSC, RS 
SMODSA, RG 


SET UP SP 


pSEE IF ANY CONNECTIONS 


9NO CONNECTIONS MADE 

pWE CAN°T STARTeLET HIM KNOW 
IMESSAGE "NO CONNECTIONS 4sMACE" 
»"PROGRAM NOT RUNNING® 


#SEE IF WE HAVE INPUT MODULE ADDRS, 
$CAN°T START IF WE DON’T 


9NO INPUT MODULE ADDRS 
PROGRAM NOT RUNNING 


SSEE IF OUTPUT MODULE ADOR, 

HAS BEEN ENTERED 

MESSAGE "NO OUTPUT MODULE ADDRS 
pENTERED" 

§"PROGRAM NOT RUNNING" 


§SEE IF WE HAVE VECTORS ENTERED 


1NO VECTOR ENTERED, BUT MIGHT NOT BE 
#CONNECTED 
PMESSAGE "NO VECTOR ADDRESS ENTERED" 


11S VECTOR ENTERED 

sFOR SECOND GROUP 

DIF NOT, SEE IF CONNECTED 

518 CONNECTED, BUT NOT VECTOR ENTERED 


gALL NECESSARY INFORMATION HAS BEEN ENTERED 
pREADY TO GO, SEE IF WE TYPE 

PMESSAGE RUNNINGeONLY ONE FIRST 

PASS AND ONLY IF WE HAVE A TERMINAL 


pINITIALIZATION OF CONNECTIONS 
HAND VECTORS FOR START 











020527 
001417 
012437 
013537 
001770 
013700 
042700 
062700 
011037 
900137 
000137 


005037 
012737 
013737 
013777 
017737 
005137 
023737 
001401 
104001 


000004 
005237 
001351 


012737 
013737 
013777 
017737 
005137 
023737 
001401 


104001 
000004 
005337 


MAINDEC@11¢DZKHAeA 
DZKHA,SRFC 
391 
392 
393 
394 
395 
396 001632 
397 001636 
3986 001640 
399 001644 
400 091650 
401i 001652 
402 001656 
403 001662 
404 001666 
405 001672 
406 001676 
407 
406 
409 
410 
413 
412 
413 001702 
414 001706 
415 001714 
416 001722 
417 001730 
418 001736 
419 001742 
420 001750 
421 001752 
422 
423 001754 
424 001756 
425 001762 
426 
427 
426 
429 
430 
431 
432 001764 
433 001772 
434 602000 
435 002006 
436 002014 
437 002020 
438 002026 
439 
440 002030 
441 002032 
442 002034 
443 002040 


assy 


001351 


MACY11,624 


TESTS 


004300 


001242 
001244 


001244 
177770 
004260 
004300 
001702 
003064 


004500 
001706 
004500 
001246 
177310 
001246 
001246 


004500 


001772 
004500 
001246 
177232 
001246 
001246 


004500 


001224 
001246 
177312 
001250 


001250 


001224 
001246 
177234 
001250 


001250 


28" JANoT4 


SINGLE? 


SINGLF! 


DATASC?! 
ist 


DATAI3$ 
iss 


10:06 


CMP 
BEO 
MOV 
MOV 
BEG 
“OV 
BIC 
ADD 
MOV 
JP 
JMP 


CLR 
MOV 
MOV 
MOV 
MOV 
COM 
CMP 
BEG 


ERROR 1 


SCOPE 
INC 
BNE 


MOV 
MOV 
MOV 
MOV 
CoM 
CMP 
BEG 


ERROR 1 


SCOPE 
DEC 
BNE 
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peCHSSCSCHEHCOCESE 
sTHIS HANDLER WILL FORM TEST ADDRESSES 
AND SEND PROGRAM TOD ALL SINGLE LINE TESTS 
sUNTIL ALL CONNECTIONS HAVE BEEN TESTED 
pSCHCCCTOLOEBERCE 


RS, ®MOD8C42 s;DONE ALL CONNECTIONS? 

SINGLF sIF YES,GOTO DUAL ADDR TESTING 
(4) ¢, SGDADR 4GET OUTPUT MODULE ADDP 

@(5)¢, SBDADR 4GET INPUT MODULE ADDR 

SINGLE SIF NO CONNECTION THEN GET NEW ADUR, 
SBDADR,RO pNOW GET VECTOR ADDRESS | 
8177770,RG6 pFORM OFFSET 

sMOD1IV,RO pUSE OFFSET TO GET VECTOR 

(0), VECTOR #STORE VECTOR 

DATASC yGOTO TO DATA TESTS 

DUALI #GOTO DUAL TESTS 


PSSSSHOCOTECR ELH OORS 
sDATA TESTS 

PART 18 COUNT PATTERN (UP) 
PSPEHRSEE RTOS ORDERS 


NINP 
#18,68LPADR 
NINP,» SGDDAT sGET DATA TO SEND TO OUTPUT MODULE 


SGDDAT,@SGDADR ;SEND DATA TO OUT PUT MODULE 
@SBDADR, SBDDAT sGET DATA FROM INPUT MODULE 


SGODAT sEXP°D s& COMPLIEMT OF SENT DATA 
SGDODAT,» SBDDAT /?#DATA SENT © DATA RECIEVED? 
204 
sDATA SENT NOT EQUAL TO DATA RECIEVED 
PITERATE 
NU AP sCOUT UP FULL 
is 


PSSROSHOTHHECH SEE 

pOATA TESTS 

PPART 2% COUNT PATTERN (DOWN) 
PSUHORHCTODHCCEDE 


618,8LPADR 
NINP, SGDDAT ;GET PATTERN 
eSGDDAT, O6GDADR }SEND DATA TO OUTPUT MODULE 
@SBDADR,SBDDAT sGET DATA FROM INPUT MODULE 
SGDDAT tEXP°D DATA © COMPLIEMT OF DATA SENT 
SGDDAT, SBDCAT j;DATA EXP°D & DATA RECIEVED ? 
oof sIF YES GET NEW DATA WORD 

#DATA EXP°D NOT EQUAL TO DATA RECIEVED 
NINP sCOUNT DOWN FULL 
DATAI 








MAINDEC@1 1 eDZKHAA 
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445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
456 
459 
460 
461 
462 
463 
464 
465 
466 
467 
4686 
469 
470 
471 
472 
473 
474 
475 
476 
477 
476 
479 
480 
461 
482 
483 
464 
465 
486 
467 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 





902042 
002050 
002054 
002062 
002070 
002076 
002102 
002110 
002112 


002114 
002116 
002122 
002130 
002136 


002144 
002150 
002152 
002154 
002160 
002164 
002172 


002200 
002204 
002206 


002210 
002212 
002220 
002222 
002230 
002232 
002240 
002246 
002254 


012737 
004737 
013737 
013777 
017737 
005137 
023737 
001401 
104001 


000004 
005077 
012737 
112777 
017737 


105737 
001401 
104001 
005137 
013700 
112760 
017737 


105737 
001401 
104001 


000004 
012737 
000005 
082777 
000004 
012737 
012777 
013777 
012777 


MACY11,024 


TESTS 


002050 
006664 
007012 
001246 
177150 
001246 
001246 


177120 
177400 
177777 
177102 


001250 
001246 
001242 
177777 
177046 


001251 


002230 
000100 


000340 
002310 
005034 
000001 


26eJANe74 


001224 DATARS3 


001246 
177152 
001250 


001250 


001246 
177104 
001250 


000001 
001250 


001224 
001470 


177776 
002032 
001764 
176760 





ist 


DATAOSs 


SINT? 


10308 


MOV 
JSR 
MOV 
MOV 
MOV 
COM 
CMP 
BEO 
ERROR 


SCOPE 
CLR 
MOV 
MOVB 
MOV 


TSTB 
BEG 
ERROP 
CoM 
MOV 
MOVB 
MOV 


TST6 
BEG 
ERROR 


SCOPE 
MOV 
RESET 
BIS 
SCOPE 
MOV 
MOV 
MOV 
MOV 
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»DATA TESTS 


PART 33 RANDOM NUMBER TEST 
POSOHHCCECHSCELESS 


#18,8LPADR 
PCe SRAND 
SLONUM, SGDDAT 
SGDDAT, @SGDADR 
@SBDADR, SBODAT 
SGDDAT 
SGDDAT, SBDDAT 
2 o4 

i 


sGET A RANDOM NUMBER 

pPUT RANDOM NO, IN GDDAT 

ISEND RANDOM NO, TO OUTPUT MODULE 
9#GET DATA FROM INPUT MODULE 


pOATA SENT & DATA RECEIVED? 
DATA SENT NOT EQUAL TO DATA RECIEVED 


XIII yy 
#BYTE OPERATION TEST 


@6GD..0R 
€177400,8GODAT 
sel, @SGDADR 
@SBOADR, SBDDAT 


SBODAT 
204 

i 
SGODAT 
SGDADR,RO 
e-j, 
@SBDADR, SBODAT 


sSET UP TO TEST FOR LOW BYTE OPERATION 
#SEND ALL ONES TO OUTPUT MODULE BUT 
pEXPECT ONLY LOW BYTE TO GET THROUGH 
sJUSTIFY DATA 

sTEST FOR ZEROS LOW BYTE 


SFAILED TO DUE A LOW BYTE OPERATION 
ySET UP TO TEST HIGH BYTE OPERATION 


1(0) s#SEND ONES TO HIGH BYTE 


pEXPECT ZERO°S BACK IN LOW BYTE 
PJUSTIFY DATA 


SBODAT?1 TEST FOR ZEROS IN HIGH BYTE 
ay | 

$ sFAILED TO DUE A HIGH BYTE OPERATION 
FHSORTESOREHHE REO 


#THIS ROUTINE MAKE SURE THE INPUT MODULES WILL 


sINTERRUPT, AND 


TO THE RIGHT VECTOR 


POO OGOSREESEHS HOO 
SSINT,SLPADR 

INITIALIZE ALL MODULES 
#100,@8TKS 
#340, PSW sLOCK OUT INTERRUPTS 
@SINTR, @VECTOR sSET UP INTERUPT RETURN 
$17, @MODIA sENABLE INPUT MODULE TO INTERRUPT 
Si, O@SGDADR #SEND DATA TO OUTPUT MODULE 











352 


002440 


MAINDEC “11 ¢DZKHA#A 
DOZKHA,SRC 
499 002262 005037 
$00 002266 005000 
$01 002270 005200 
$02 002272 001376 
$03 002274 013737 
$904 002302 104002 
505 
$06 002304 000137 
$07 002310 022626 
$08 002312 017737 
509 
510 
511 
512 
513 
514 
515 
516 
$17 
516 
519 002320 000004 
$20 002322 012737 
$21 002330 012777 
$22 002336 013777 
$23 002344 012777 
$24 002352 012737 
$25 002360 005000 
$26 002362 005200 
527 002364 001376 
$28 002366 0132737 
$29 002374 104002 
$30 
531 002376 000137 
532 
$33 002402 022626 
534 002404 017737 
535 
536 
537 
536 
$39 
$40 
$41 
342 
543 
544 
545 
$46 002412 000004 
547 002414 005037 
$48 002420 023737 
349 002426 001406 
350 002430 023737 
535i 002436 001402 


005137 


MACY11,024 28-JANe©74 
TESTS 
177776 
177776 001270 
002230 
SINTRs 
176726 001270 
SINT4s 
000340 177776 
002402 001742 
005034 001674 
000001 176670 
000200 177776 
000200 001270 
002412 
SINT4R3 
176634 001270 
SINTS# 
004302 
004240 001244 
004242 001244 
004302 


10108 


CLR 
CLR 
Inc 
BNE 
MOV 


ERROR 2 


JMP 
POPSP2 
MOV 


SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
Inc 
BNE 
MOV 


ERROR 2 


JMP 


POPSP2 
MOV 


SCOPE 
CLR 
CMP 
BEG 
CMP 
BEG 
COM 


PAGE 12 


PSa sALLOW INTERRUPTS 

RO 

RO pwAIT HERE FOR INTERRUPT 
22 

PSW, SIMPO 


INPUT MODULE FAILED TO INTERRUPT AT 
PPROCESSOR PFIORITY ZERO 

SINT 
JRETURN SP 


@SBDADR, STMPO 


peCeeeeeesevereee 
PMAKE SURE INPUT MODULE WILL INTERRUPT ITH 


PPROCESSOR PRIORITY AT LEVEL 4 
POROHOCHHHEDETERS 


8340, PSW 9LOCK OUT INTERRUPTS 

@SINT4R, OVECTOR sSET UP INTERRUPT RETURN 

Si?, @MODIA fSENABLE INPUT MODULES TO INTR, 
Si, @SGDADR sSEND DATA TO OUTPUT MODULE 


#200, PSW #SET PRIORITY TO LEVAL FOUR 

RO 

RO SWAIT HERE FOR INTERRUPT 

eva 

8200, 8sTMPO 
sINPUT MODULE FAILED TO INTERRUPT AT 
PPROCESSOR PRIORITY FOUR 

SINTS 

: ?RESET SP 
@SBDADR, STMPO 
POROESCHHHORDOSEO 


pPRIORITY LEVEL FIVE INTERRUPT TEST 

sNOTE THAT SOME INPUT MODULES SHOULD INTR 

SAT PROCESSOR PRIORITY FIVE AND OTHERS SHOULDN*T 

piST TWO INPUT MODULES ARE AT LEVEL FIVE AND SHOULON®’T INTR, 
p2ND TWO INPUT MODULES ARE AT LEVEL SIX AND SHOULD INTR 
fRELSUECHESHREDED 


SFIVE IDETERMINE IF CURRENT INPUT 
MODiA, SBDADR sMODULE SHOULD INTR, 

is 

MOD2A, SBOADR 

is 

SFIVE s2ND GROUP OF INPUT MODULES 








MAINDEC@11eDZKHA®A 

DZKHA, SRC 
553 002444 012737 
554 002452 012737 
$55 002460 042777 
556 002466 013777 
557 002474 012777 
558 002502 012737 
559 002510 005000 
560 002512 005200 
$61 002514 001376 
$62 002516 005737 
S63 002522 001413 
564 002524 104002 
565 
566 002526 000137 
567 
$68 002532 022626 
$69 002534 017737 
$70 002542 005737 
S71 002546 001001 
572 002580 104003 
$73 
574 
575 
576 
$77 
578 
579 
580 
581 
582 
$83 
$84 902552 000004 
S85 002554 012737 
$86 002562 012737 
587 002570 012777 
$86 002576 013777 
$89 002604 012777 
$90 002612 013737 
$91 002620 005000 
592 002622 005200 
S93 002624 100376 
594 
$95 002626 000137 
596 
$97 002632 022626 
$98 002634 017737 
599 002642 104003 
600 
601 
602 
603 
604 
608 


MACY11,024 28=JAN©74 
TESTS 
000240 001270 1688 
000340 177776 
002532 001612 
005034 001544 
000001 176540 
000240 177776 
004302 
002552 
SINTSRE 
176504 001270 
004302 - 
SINT! 
000340 177776 
000300 001270 
002310 001502 
005034 001434 
000001 176430 
001270 177776 
002646 
SINT6RS 
176404 001270 


10:08 


“OV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
INC 
BNE 
TST 
BEG 


ERROR 2 


JMP 


POPSP2 
MOV 
TST 
BNE 


ERROR 3 


SCOPE 
MOV 
MOV 
MOV 
MCV 
MOV 
MOV 
CLR 
Inc 
BPL 


JMP 


POPSP2 
MOV 


~ 
~ 
. 
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8240, STMPO 

#340, PS pLOCK OUT INTERRUPTS 

@SINTSR, @VECTOR 3sSET UP INTERRUPT FKETURN 

Si7, @MODIA yENABLE INPUT MODULES TU INTERRUPT 

81, @SGDADR SEND DATA TO OUTPUT MODULE 

8240. PSw ySET PROCESSOR PRIORITY TO LEVEL FIVE 

RO PWAIT HERE FOR AN INTERKUPT 

RO 

72 

SFIVE #NO INTERRUPT OCCURED © SHOULD «wE r 

SINT6 sHAVE ONE? ; 
#YES, INPUT MODULE AT LEVEL SIX 
)SHOULD HAVE INTR, wITH PROCESSOR 

SINT6 pPRIORITY AT LEVEL 5 
SINTERRUPTED © BUT SHOULD WE HAVE? 

@SBDADR, STMPO 

SFIVE 

SINT6 
1NO © GINPUT MODULE (PRIORITY 5) SHOULD NOT 
sHAVE INTERRUPTED WITH PROCESSOR 
pPRIORITY AT LEVEL 5 

EOREOHROTOREOHSEES 


#PRIORTY LEVEL 6 INTERUPT TEST 
sNO INPUT MODULES SHOULD INTERRUPT 
pWITH PROCESSOR AT THIS LEVEL 


PRSCF OOH EHEOERAD 
@340, PSwW sLOCK OUT INTERRUPTS 
#3000 STMPO 
SSINTR, @VECTOR #SET UP INTERRUPT RETURN 
$17, @MODIA sENABLE INPUT MODULES TO INTERRUPT 
Gi, OSGDADR »sSEND DATA TO OUTPUT MODULE 
STMPO, PSW 9SET PROCESSOR PRIORITY TO LEVEL 6 
RO pWAIT HERE FOR ANY INTERRUPT 
RO 
eed 
ynNO 
SINT? 
PINTERRUPT SERVICE ROUTINE 
pRESET SP 
@SBDADR, STMPO 








MAINDEC-11eDZKHASA 
DZKHA,SRC 


607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
653 
652 
653 
654 
655 
656 
657 
658 
659 
660 





002644 
002646 
002654 
002662 
002670 
002676 
002704 
002706 
002710 


002712 
002716 
002720 
002726 


002730 
002736 
002744 
002752 
002760 
002766 
002770 
002776 
003004 
003012 
003014 
003016 


003022 
003026 
603030 
003032 
003034 
003040 


003044 
003046 
003054 
003056 
003060 


000004 
012737 
012737 
012777 
013777 
012777 
005000 
005200 
100376 


000137 
022626 
017737 
104003 


012737 
012777 
012737 
013777 
012777 
000005 
052777 
017737 
023737 
001403 
104004 
000137 


005037 
005000 
105200 
100376 
010177 
000137 


022626 
017737 
104007 
000004 
000137 


MACY11,024 


TESTS 


000340 
000340 
002310 
005034 
000001 


002730 
176320 


000340 
003044 
477777 
005034 
052525 


000100 
176242 
001246 


002730 


177776 


001240 
001632 


176172 


001632 


177776 
001279 
001410 
001342 
176336 


001270 


177776 
001334 
001246 
001260 
176254 


000722 


001250 
001250 


001270 


26eJAN@74 


SINT7:s 


SINT?R 


INITS 


iss 


INITRe 


10:08 
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peRSSeeSseoneonee 
pPRIORTY LEVEL 7 INTERRUPT TEST 
NO INPUT MODULES SHOULD INTERRUPT 
p*ITH PROCESSOR AT THIS LEVEL 
PSSESOCHOEHEOEOES 


SCOPE 
MOV 6340, PSW LOCK OUT INTERRUPTS 
MOV 0340, STMPO 
MOV SSINTR, @VECTOR »SET UP INTERRUPT RETURN 
MOV $17, @MODIA sENABLE INPUT MODULES TO INTERRUPT 
MOV ei, @SGDADR sSEND DATA TO OUTPUT MODULE 
CLR RO pWAIT HERE FOR ANY INTERRUPT 
INC RO 
BPL e22 
gNO 
JMP INIT 
POPSP2 sRESET SP 
MOV @SBDADR, STMPO 
ERROR 3 
PSSSSSSCOHOHLVEHOS 
pINITIALIZATION TEST FOR MODULES 
PSSSOKHHHCHSCEESE 
MOV 8340, PSwW LOCK OUT INTERRUPTS 
MOV ®@INITR, @VECTOR sSET UP FOR POSSIBLE INTERRUPT 
MOV Geol, SGDDAT  s:SHOULD GET ALL ONES BACK AFTER INITIALIZE 
MOV $17, O@MODIA  sENABLE INPUT MODULE TO INTERRUPT 
MOV @532525, @OSGDADR sSEND DATA TO OUTPUT MODULE 
RESET , sSYSTEM INITIALIZE 
BIS 6100,08TKS 
MOV @SBDADR, SBODAT sGET DATA FROM INPUT MODULE 
CMP SGDDAT, S@BDDAT }#WAS DATA ALL ONES? 
BEO is 
ERROR 4 pINIT FAILED TO INIALIZE MODULES 
JMP INIT 
CLR PSW sALLOW INTERRUPTS, SEE IF INPUT 
CLR RO sMODULE INTERRUPTS = IT SHOUDN®T 
INCB RO sINTIALIZE SHOULD HAVE CLEARED 
BPL et2 pINTERRUPT ENABLE BITS 
MOV Ri, @VECTOR : 
JMP SINGLE 9GO BACK AND PICKeUP ‘NEW CONNECTION 
pINTERRUPT HANDLE 
POPSP2 sRESET SP 
MOV @SBDADR,STIMPO 
ERROR tRESET (SYSTEM INITIALIZE) FAILED 
SCOPE 9TO CLEAR INTERRUPT ENABLE BIT IN 
JMP SINGLE 9CSR (FOR THIS INPUT MODULE) 











MAINDEC#11°DZKHAeA 
DZKHA,SRC 


661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
684 
6862 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
706 
709 
710 
711 
712 
713 
714 


003064 
003072 
003076 
003102 
003104 
003106 
003114 
003116 
003120 
003124 


003126 
003132 
003136 
003144 
003146 
003152 
003160 
003164 
003172 
003174 
003176 
003200 
003204 
003206 
003212 


003214 
003216 
003222 
003224 
003230 
003232 
003240 
003244 
003250 
003256 
003262 
003266 
003272 


012737 
012701 
012702 
005711 
001403 
017172 
005722 
005721 
020127 
001366 


0127013 
012702 
017137 
001413 
011237 
017737 
005137 
023737 
001007 
005721 
005722 
020127 
001354 
000137 
104005 


000004 
012704 
005024 
020427 
001374 
012737 
012702 
012703 
043777 
012704 
012705 
013700 
012720 


MACY11,624 


TESTS 


003072 
004270 
004250 


000000 
0043C0 


004270 
004250 
000000 


001270 
176064 
001244 
001242 


004300 
003214 


004304 
004314 


000340 
004250 
004270 
005034 
004304 
004316 
004260 
003476 


001224 


000000 


001242 


001244 
001244 


177776 


000762 


28°JANOT4 


DUALI8 
DUAL? 


ist 


DUALT:s 
18 


AINTS 
1083 


10:06 


MOV 
MOV 
MOV 
TST 
BEG 
MOV 
TST 
TST 
CMP 
BNE 


MOV 
MOV 
MOV 
BEQ 
MOV 
MOV 
CoM 
CMP 
BNE 
TST 
TST 
CMP 
BNE 
JMP 
ERROR 


SCOPE 
MOV 
CLR 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
OV 
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sOUAL 


AODRESS TEST 


FOR ALL 


1CONNECTED MODULES 
PSORHOHOCCOELOOEES 


SOUAL, SLPADR 

esMODSC, Ri GET LIST OF CONNECTIONS 

@MODSA, R2 9GET LIST OF OUTPUT MODULES 

(1) sCONNECTION EXIT? 

28 #nO 

@Ci)» @(2) yMOV ADR OF INPUT MODULE TO OUTPUT MODULE 

He sUPDATE POINTERS 

Cide 

Ri, @MOD8Ce?2 sCHECK FOR END OF LIST 

is 

eMODSC, Ri GET POINTER LIST AGAIN 

@MODSA, R2 

Sg SGDADR sGET ADDR OF INPUT MODULE IF EXISTANT 

8 

C2). STMPO 1GET ADDR OF OUTPUT MODULE 

@SGDADR,-SBDADR j;GET DATA FROM INPUT MODULE 

SBDADR pJUSTIFY DATA 

SGDADR, SBDADR sDATA RECIEVED IN INPUT MODULE SHOULD BE 

38 11TS OWN ADDRESS 

Cie sUPDATE POINTERS 

C2)¢ 

Rie @MODECe2 sEND OF LIST? 

is 

AINT sYES, ExiIT 
ERROR © SENT ADDRESS OF ALL INPUT MODULES 
gTO RESPECTIVE OUTPUT MODULES © BUT DIDN°T RECIEVE 
CORRESPONDING ADDRESS FROM INPUT MODULE 

BARARAAALALL ES TF 


sTHIS ROUTINE CHECKS THE ORDER IN WHICH WE RECIEVE 
gINTERRUPTS BACK FROM ALL MODULES 


Air iiiitiiititt) 
SINTPO,R4 

(4) 

R4, SINTPOe{0 

106 

0340, PSw sLOCK OUT INTERRUPTS 

@MODSA, R2 sGET OUTPUT MODULE POINTER 

@MODSC, R3 9GET CONNECTION POINTER 

$17, @MODIA ?sENABLE INPUT MODULES TO INTERRUPT 
SINTPO, R4 9SET UP TO STORE ORDER OF INTERRUPTS 
@INTPOL, RS sSETUP TO STORE VALUE OF INTERRUPT 
MODIV,RO pSET UP INTERUPT SERVICE ROUTINES 
@INTRS1-+(0)¢ 














MAINDEC #11 eDZKHAeCA 
DZKHA,SRC 


715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
7313 
752 
753 
754 
755 
7356 
757 
756 
759 
760 
763 
762 
763 
764 
765 
766 
767 
768 





003276 
003302 
003306 
003312 
003316 
003322 
003326 
003332 
003336 


003342 
003344 
003346 
003354 
003356 
003360 
003364 
003366 
003372 
003374 
003376 
003400 
003402 


003410 
003414 
003416 
003422 
003424 
003430 
003432 
003436 
003440 


003444 
003450 
003454 
003460 
003464 


003470 
003472 
003476 
003502 
003506 
003510 
003514 
003520 


012720 
012720 
012710 
013700 
012720 
012720 
012720 
012710 
005037 


005713 
001403 
017372 
005723 
005722 
020227 
001566 
005037 
005000 
005200 
001376 
000005 
052777 


012704 
005724 
021464 
002403 
005764 
001005 
020427 
001366 
000137 


012705 
012537 
012537 
012537 
012537 


104006 
000137 
013725 
012724 
000002 
013725 
012724 
000002 


013725 


MACY11,624 


TESTS 

000340 
003510 
000340 
004264 
003522 
000340 
003534 
000340 
000000 


000000 


004260 
177776 


000100 
004302 
000002 
000002 
004310 
005762 
004316 
001254 
001256 


001260 
001262 


005762 


004240 
000003 


004242 
000004 


004244 


000000 


000310 


28eJAN©74 


183 


383 


465 


AINTER? 


INTRS18 
INTRS21 


INTRS:: 


10:08 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 


TST 
BEG 
MOV 
TST 
TST 
CMP 
BNE 
CLR 
CLR 
INC 
BNE 
RESET 
BIs 


MOV 
TST 
CMP 
BLT 
TST 
BNE 
CMP 
BNE 
JMP 


MOV 
MOV 
MOV 
MOV 
MOV 


‘ERROR 
JMP 
MOV 
MOV 
RTI 


MOV 
MOV 


ILOCK OUT INTEPRUPTS wHILE IN SERVICE ROUTINE 


THE INTERRUPT SERV, ROUTINE WILL 
PASSIGN A NUMBER AND STORE OW A STACK 
950 WE CAN DETERMINE LATER THE 

ORDER THE INTERRUPTS CAME IN 


SURE WE CLEAR LOCATION ZERO, 
DOES CONNECTION EXIST? 


ISEND INPUT MODULES ADDF TO OUTPUT MODULE 
UPDATE POINTERS 


@MODGAS2 SAT END OF LIST? 


NOW ALLOW THE WORLD TO INTR, 
MAKE SURE TO ALLOW PLENTY OF 
TIME FOR EVERYONE 

#TIMESeUP EVERYBODY SOULD BE 


sDONE 


PFIRST < SECOND 
PWASN°T, BUT WAS IT A NONCEXSISTANT INITR,? 
gEND OF LIST? 


PERROR OCCURED © SETUP FOR TXPEQUT 


MODULES INTERRUPTED OUT OF SEQUENCE 
sSHOULD BE (1) INPUT MODULE3, (2) INPUT MODULEC, 
903) INPUT MODULE), (4) INPUT MODULE2 


5 
PINTERRUPT SERVICE ROUTINE FOR FIRST INPUT MODULE 


PAGE 16 
8340, (O0)¢ 
SINTRS2,(0)¢ 
8340, (0) 
MOD3V. RO 
SINTRS3,(O0)¢ 
#340, (O)¢ 
SINTRS4,(0)¢ 
e340, (0) 
0 
(3) 
28 
@(3). @(2) 
(3)¢ 
(2)¢ 
R2» 
is 
PSwW 
RO 
RO 
ee2 
€100,08TKS 
CINTPOe2,R4 
(4) 
(4), 2(4) 
ay 
2(4) 
AINTER 
R4,8INTPOSS 
38 
seoPp 
CINTPOL, RS 
(S)e, SREGO 
(S)¢, SREGI 
{S)o, SREGZ 
(S)e, GREG) 
& 
stop 
MODIA, (S)¢ 
83, (4)¢ 
MODZA, (5S) 
84, (4)¢ 
MOD3A, (S8)¢ 


sSTORE ADDRESS ON STACK 
#STORE INTERRUPT VALUE ON STACK 








DZKHA,SRC 

769 003526 
7170 =6©003532 
774 

772 003534 
773 003540 
774 003544 
775 

776 

777 

776 

779 

780 

784 003546 
782 003554 
783 003562 
784 003570 
785 003572 
786 003574 
787 003576 
788 003602 
7869 003610 
790 003612 
791 003616 
792 003624 
793 003626 
794 003632 
795 003636 
796 003640 
797 003644 
798 003646 
799 003650 
800 003656 
801 003660 
B02 003662 
803 003670 
804 003672 
805 003700 
806 003704 
807 0603706 
808 003712 
809 003716 
810 

811 003720 
812 003722 
813 

814 003724 
815 003732 
816 003734 
817 003740 
818 003744 
819 003746 
820 003752 
821 003754 


003756 


MAINDECe11°DZKHAeA 


012724 
000002 


013725 
012724 
9900002 


417777 
142777 
122777 
001004 
104400 
011167 
000137 
122777 
001002 
000137 
122777 
001002 
000137 
005737 
001404 
005037 
104400 
011174 
117737 
104400 
005474 
122777 
001010 
0132737 
005737 
001402 
012716 
005237 
000002 


177560 
177562 


022737 
001002 
000137 
005737 
001004 
005137 
194400 
011174 
005337 


MACY11,624 


TESTS 


000001 


004246 
000002 


000150 
000200 
000003 


005542 
000022 


005476 
000177 


003724 
003776 


003776 


005660 


000015 


011537 
004330 


004030 
011534 


011540 


005542 
003776 


003776 


011534 


2beJANo74 

INTRS4! 
eSBTTL 

005760 TTYINs 

005752 

005744 

005724 

005710 

005474 

005644 

011534 
ist 
STKS! 
STKB$ 

011534 RUBH3 


10:08 


MOV 
RTI 


MOV 
MOV 
RTI 


MOVB 
BICB 
CMPB 
BNE 
TYPE 
MCONC 
JMP 
CMPB 
BNE 
JMP 
CMPB 
BNE 
JMP 
TST 
BEQ 
CLR 
TYPE 
MBS 
MOVB 
TYPE 
MAP 
CMPB 
BNE 
MOV 
TST 
BEG 
MOV 
INC 
RTI 


177560 
177862 


CMP 
BNE 
JMP 
TST 
BNE 
COM 
TYPE 
MBS 
DEC 
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Si, (4)¢ 
MOD4A, (5) 
82>. (4)¢ 


PSSSOKESHHSESO HOLS 
sEND OF TESTS 
peSCHOSOHOEEERESE 
HANDLERS 
@STKB, 
8200, 
83, 

e*%l2 


@TTYINP 
@TTYINP 
@TTYINP 


STORE INPUT 
MASK FOR STANDARD 
CHECK FOR "C 


INPUT 


STAR 
822, 
2 06 

SU™ 

e177, 
2 6 

RUBH 
RUBF 
2ei2 
RUBF 


@TTYINP sCHECK FOR °R 


) IF “PR THEN TYPE RUN SUMMARY 


@TTYINP sCHECK FOR RUBOUT 


sNOT RUBOUT, BUT WAS FORMER A RUBUUT? 


@TTYINP, MAP 


#15, 
is . 
STTYINB=i1,TTYINP sO0N*°T GO TO DECODER IF 


OTTYINP 


CFLG sNOT IN COMMAND MODE 
is 
@DESIFR, (6) SET UP TO GO TO DECODER ROUTINE 
TIYING 
STTYINB,TTYINP jsAT BEGINNING OF BUFFER? 
,*6 
STAR 
RUBF tFLAG SET? 
e*i2 
RUBF 
gNO, PRINT A SLASH 
TTYINP 








OO nn ens}. ieee ee ee ere ee eS 


MAINDEC@#11@DZKHASA MACY11,624 28eJAN=74 10808 PAGE 18 
DZKHA,SRC HANDLERS 
823 003762 117737 005546 005474 MOVB @®@TTYINP,MAPI 
624 003770 104400 TYPE 
825 003772 005474 MAPI 
826 003774 000002 RTI 
827 003776 000000 RUBFS 000000 
828 
829 #THIS ROUTINE CHECKS TO SEE IF INPUT WAS A NUMBER 
830 
831 004000 127727 005530 000057 NUMBER! CMPB @TTYINP, 657 1SEE IF INPUT IS A NUMBER 
832 004006 002406 BLT ie 
833 004010 127727 005520 000071 CMPB @TTYINP, 671 
834 004016 003002 BGT +6 
835 004020 00262 SEV 9SET V BIT IF *AS A NUMBER 
836 004022 000207 RTS PC 
837 004024 000242 CLV 
838 004026 000207 RTS PC 
839 
840 : 
641 sCOMMAND DECODER 
842 
843 004030 052737 000340 177776 DpESIFR? BIS #340, PSW pLOCK OUT INTERRUPTS 
844 004036 104400 TYPE 
845 004040 011176 MCRLF 
846 004042 122777 000101 005464 CMPB 8101, OTTYINP SEE IF THE WANTED TO INPUT ADDRESS "A" 
847 004080 001002 BNE »*6 
848 004052 000137 004332 JUMP INADR ‘ 
849 004056 122777 000126 005450 CMPB #126, OTTYINP sSEE IF HE WANTED TC INPUT VECTOR *y* 
850 004064 001002 BNE ~¢6 
851 004066 000137 004660 JMP INVET 
852 004072 122777 000106 005434 CMPB #106, @TTYINP »SEE IF HE WANTED NORMAL CONNECTIONS *F* 
853 004100 001002 BNE ~ +6 
854 004102 000137 005036 JMP INNOR . 
855 004106 122777 000104 005420 CMPB #104, @TTYINP »SEE IF HE WANTED TO DISCONNECT "D* 
856 004114 001002 BNE 206 
@57 004116 000137 005100 JMP INUNC 
858 004122 122777 o00115 005404 CMPB #115, @TTYINP ;SEE IF WANTED A MAP "M*® 
859 004130 001002 | BNE 26 
860 004132 000137 005334 JMP INMAP . 
861 004136 122777 000123 005370 CMPB 8i23, @TTYINP #SEE IF HE WANTED TO START TESTING "S8* 
862 004144 001002 BNE 0o6 
863 004146 000137 001446 JMP START 3 
864 004152 004737 004000 JSR PC, NUMBER SEE IF HE WANTS TO CONNECT TWO MODULES 
865 004156 102002 BYC ~*6 
866 004160 000137 005130 JMP SINCO 
867 
868 
R49 $ 
870 #UNKNOWN INPUT © TELL HIM 
a7 } 
e%2 
873 004164 005737 011534 UNKINPS TST TTYINP 
874 006170 112777 000040 005336 MOVB #40, @TTYINP ;TYPE SPACE 
875 004176 005237 011534 INC TTYINP 
876 604202 112777 000077 0605324 MOVB O77, @TTYINP sTYPE "7?" 








MAINDEC #1 1°DZKHASA 
DZKHA,SRC 

877 004210 005237 
876 004214 105077 
879 

860 004220 1064014 
661 

®@82 004222 000137 
883 

884 

865 004226 032737 
866 004234 001353 
887 004236 000207 
668 

889 

690 

891 

892 004240 164000 
893 004242 164002 
894 004244 164004 
895 004246 164006 
896 004250 164010 
897 004252 164012 
898 004254 164014 
899 004256 164016 
900 004260 000170 
901 004262 000174 
902 004264 000270 
903 004266 000274 
904 004270 000000 
905 004272 000000 
906 004274 000000 
907 004276 000000 
908 004300 000000 
909 004302 000000 
910 004304 000000 
911 004316 
912 004316 000000 
913 004330 
914 004330 000000 
915 

916 

917 

918 

919 004332 005237 
920 004336 122777 
9213 004344 0601002 
922 004346 000137 
923 004352 122777 
924 004360 001002 
925 004362 000137 
926 004366 000137 
927 

928 

929 


930 





004372 


005037 


MACY11,6024 
HANDLERS 


011534 
005314 


005542 


000001 


011534 
000111 


004504 
000117 


004572 
004164 


004500 


Se LE 


005170 


005154 


2BeJAN@74 


004500 ODDADR! 


MODIAS 
MOD2A8 
MOD 3A 
MOD4A! 
MODSAs 
MODG6GAS 
MODT7AS 
MODGA! 
MODiV? 
MOD2V3 
MOD3V3 
MOD4VeE 
MODSCs 
MOD6C3 
MODIC8s 
MODEC! 


VECTOR? 


SFIVEs 
INTPOs 


INTPOLS 


CFLG: 


INADR? 


INUMBS 


101708 


PAGE 19 


TTYINP 
®TTYINP 


Inc 
CLRB 


ERROR 14 


JMP STAR 


BIT Si, 
BNE UNKINP 
RTS PC 


»MAP OF 


164000 
164002 
164004 
164006 
164010 
164012 
164014 
164016 
000170 
000174 
000270 
000274 
6000000 
000000 
000000 
000000 
000000 
600000 
000000 
o#,%10 
000000 
e®,%10 
000000 


j TERMINATOR 
JUNKNOWN INPUT FROM OPERATOR 


pEXIT 


NINP sI1S IT AN ODD ADR? 


MODULES 
sADDR OF INPUT MODULES 


pADDR OF OUTPUT MODULES 


SVECTOR OF INPUT MODULES 


gSTATUS OF OUTPUT MODULES 


PINDICATES SOFTWARE MCDE 


pINPUT ADDRESS DECODER 


INC 
CMPB 
BNE 
JMP 
CMPB 
BNE 
JMP 
JMP 


TIYINP 


INADRO 
UNKINP 


@TTYINP sINPUT MODULE ADDRS? "1" 


S@TTYINP sOUTPUT MODULE ADDRS? "0" 


UNKNOWN INPUT 


#THIS ROUTINE INPUTS A NUMBER 


CLR NINP 


sCLR NUMBER 





MAINDEC@11¢DZKHAeA 
OZKHA,SRC 

931 004376 062737 
932 004404 004737 
933 004410 102407 
934 004412 122777 
935 004420 001001 
936 004422 000207 
937 004424 000137 
938 004430 000241 
939 004432 006137 
940 004436 006137 
94. 004442 006137 
942 004446 117737 
943 004454 042737 
944 004462 063737 
945 004470 005237 
946 004474 000137 
947 

948 004500 000000 
949 004502 000000 
950 

951 

952 

953 

954 004504 004737 
955 004510 004737 
956 0045134 013737 
957 004522 062737 
958 004530 013737 
959 004536 062737 
960 004544 013737 
963 004552 062737 
962 004560 013737 
963 004566 000137 
964 

965 

966 

967 

968 004572 004737 
$69 0046576 004737 
970 004602 013737 
971 004610 062737 
972 004616 013737 
973 004624 062737 
974 004632 013737 
975 004640 062737 
976 004646 013737 
977 004654 000137 
976 

979 

9806 

981 004660 005237 
982 004664 605037 
983 004670 004737 
984 004674 102402 





MACY11,6024 28-eJAKe74 10:08 PAGE 20 


HANDLERS 
000002 011534 ADD 82, TIYINP sUPDATE POINTER 
004000 iss JSR PC, NUMBER 9gSEE IF ITS A NUMBEF 
BVS 28 9V BIT SET IF IT WAS 
0000158 005114 CMP 615, @TTYINP sCARRIAGE RETURN? 
BNE #4 
RTS PC EXIT 
004164 JP UNKINP pUNKNOWN INPUT 
26% cLe 
6004500 ROL NINP 
004500 ROL NINP 
004500 ROL NINP 
0058062 004502 MOVB @TTYINP,NINPT 1TEMP STORAGE OF NUMBER 
177760 004502 BIC 8177760,NINPT 
004502 004500 ADD NINPT, NINP yADD NUMBER 
011534 INC TTYINP 
004404 JMP is 
NINP? 000000 
NINPTs 000000 
pTHIS ROUTINE SETS ADDRS OF INPUT MODULES 
004372 INADRI# JSR PC» INUMB SINPUT ADDRESS 
004226 NTFO?s JSR PC. ODDADR 3;SEE IF ODD ADR 
004500 004240 MOV NINP,» MODIA 9SET INPUT MODULES ADDRESS 
000002 004500 ADD 82, NINP 
004500 004242 MOV NINP, MOD2A 
000002 004500 ADD 62s NINP 
004500 004244 MOV NINP, MOD3A 
000002 004500 ADD 82s NINP 
004500 004246 MOV NINP,» MOD4A 
005542 JMP STAR tEXIT 
sTHIS ROUTINE SETS ADDRESS OF OUTPUT MODULES 
004372 INADROS JSR PCe INUMB SINPUT ADDRESS 
004226 NTFis JSR PC. ODDADR  ;SEE IF ODD ADDRESS 
004500 004250 MOV NINP, MODSA 
000002 004500 ADD 82° NINP 
004500 004252 MOV NINP, MODGA 
000002 004500 ADD 82 NINP 
004500 004254 MOV NINP, MODT7A 
000002 004500 ADD 82>. NINP 
004500 004256 MOV NINP, MODGA 
005542 JMP STAR EXIT 
tTHIS ROUTINE SETS VECTOR ADDRESSES 
0411534 INVETs INC TTYINP pUPDATE POINTER 
005024 CLR INVETT 
004000 JSR PCs NUMBER jsSEE IF NUMBER FOLLOWS 
BYVS is 


MAINDEC #11 eDZKHA@A 
DZKHA,SRC 
985 004676 000137 
986 004702 117737 
987 0046710 004737 
988 006714 004737 
989 004720 162737 
990 004726 032737 
991 004734 001402 
992 004736 000137 
993 004742 042737 
994 004750 000241 
995 004752 006137 
996 004756 006137 
997 004762 062737 
998 004770 013777 
999 004776 062737 
1000 005004 062737 
1001 005012 013777 
1002 005020 000137 
1003 005024 000000 
1004 005026 000000 
1005 005030 000000 
1006 005032 000000 
1007 005034 000000 
1008 
1009 
1010 
1011 
1012 005036 012737 
1013 
1014 005044 012737 
1015 005052 012737 
1016 005060 012737 
1017 005066 012737 
1018 005074 000137 
1019 
1020 
1021 
1022 
1023 005100 005037 
1024 005104 005037 
1025 005110 005037 
1026 005114 005037 
1027 005120 005037 
1028 005124 000137 
1029 
1030 
1031 
1032 
1033 005130 117737 
1034 005136 042737 
1035 005144 123727 
1036 005152 003011 
1037 005154 005337 


1038 


005160 


100406 


MACY11,624 
HANDLERS 


904164 
004626 
004372 
004226 
000003 
177000 


004164 
000176 


005024 
005024 
004260 
004500 
000002 
000004 
004500 
005542 


004240 


004242 
004244 
004246 
000017 
005542 


004270 
004272 
004274 
004276 
005034 
005542 


004400 
177760 
005024 


005024 


26eJAKo74 
005024 i188 
NTF 3B8 
008024 
004500 
005024 
005024 
000026 
005024 
004500 
000004 
INVETT?3 
INVET22 
$153 
$163 
Si73 
004270 INNOR? 
004272 
004274 
004276 
008034 
INUNCS 


* 
005024 siNncos 


005024 
000004 


10:08 


JMP 
MOVB 
JSR 
JSR 
SUB 
BIT 
BEQ 
JMP 
BIC 
cLe 
ROL 
ROL 
ADD 
MOV 
ADD 
ADD 
MOV 
JMP 
000000 
000000 
000000 
000000 
000000 


MOV 


MOV 
MOV 
MOV 
MOV 
JMP 


CLR 
CLR 
CLR 
CLR 
CLR 
JMP 


MOVB 
BIC 
CMPB 
BGT 
DEC 
BMI 


PAGE 21 
UNKINP 
@TTYINP,INVETT 
PC. INUMB 
PC. ODDADR 
Po INVETT 
8177000,NINP 
o #6 
UNKINP 
0176, INVETT 
INVETT 
INVETT 
@MODIV, INVETT 
NINP,» @INVETT 
82, INVETT 
84, NINP 
NINP» @INVETT 
STAR 


#TEMP STORAGE OF WHICH VECTORS 
GET ADDPESS 
sSEE IF ODD ADRESS 

ySEE IF LEGAL VECTOR ADDR, 


sNO, NUMBER LARGER THAN 376 
#ZERO OF ONE 


pSET POINTER TO STORAGE OF VECTOR 
STORE VECTOR ADDRESS 


TEMP STORAGE 
TEMP STORAGE 
tINTR, ENABLE BITS TOC SEND TO KIT H 


THIS ROUTINE MAKES NORMAL CONNECTIONS ~ 


@MODIA, MODSC 
MOD6C 
MODI7C 
mobec 
$17 


@MOD2A, 
SMOD3A, 
SMODGA, 
817, 
STAR 


sMOD ADOR OF LOCATION THAT 
sCONTAIN ADDR OF INPUT MODULE TO 
pOUTPUT MODULES STATUS WORD (MEMORY) 


STHIS ROUTINE UNCONNECTS MODULES 


MODSC 
MOD6C 
MOoTC 
MODEC 
$17 
STAR 


sTHIS ROUTINE CONNECTS TWO MODULES 


@ITYINP,INVETT 
177760, INVETT 
INVETT, #4 

is 

INVETT 

as 


#STORE INPUT MODULE ® (14) 


pSEE IF ILLEGAL 











MAINDEC #11 @DZKHASA 

DZKHA,SRC 
1039 005162 005237 
1040 008166 122777 
1041 005174 001402 
1042 005176 000137 
1043 005202 005237 
1044 008206 043737 
1045 005214 005037 
1046 005220 000261 
1047 005222 006137 
1048 005226 005337 
1049 005232 100373 
1050 005234 053737 
1051 005242 004737 
1052 008246 117737 
1053 005254 042737 
1054 005262 162737 
1053 005270 100742 
1056 005272 000241 
1057 008274 006137 
1058 005300 062737 
1059 005306 000241 
1060 “005310 006137 
1064 005314 062737 
1062 005322 013777 
1063 005330 000137 
1064 
1065 
1066 
1067 
1068 005334 005037 
1069 005340 104400 
1070 005342 011234 
1073 005344 012737 
1072 005352 012701 
1073 005356 012702 
1074 005362 104400 
1078 005364 011321 
1076 005366 104400 
1077 005370 005474 
1078 008372 104400 
1079 005374 011334 
1080 005376 012146 
1081 005400 104402 
1082 005402 104400 
1083 005404 011340 
1084 005406 012246 
1085 005410 104402 
1086 005412 005237 
1087 005416 022701 
1088 005422 001357 
1089 005424 104400 
1090 005426 011321 
1093 005430 104400 
1092 005432 005474 





MACY11,024 
HANDLERS 


011534 
000074 


004164 
011534 
005024 
005030 


005030 
005032 


005030 
004000 
004262 
177760 
000005 


005024 
004240 


005026 
004270 
005024 
005542 


177776 


000261 
004240 
004260 


005474 
004250 


004340 


005032 


005034 


005026 
005026 
005026 


005024 


005026 
177476 


005474 


28° JANe74 


26% 


INMAPS 


INMAP{2 


10308 


INC 
CMPB 
BEG 
JMP 
INC 
MOV 
CLR 
SEC 
ROL 
DEC 
BPL 
BIS 
JSR 
MOVB 
BIC 
SUB 
BMI 
CLC 
ROL 
ADD 
cLc 
ROL 
ADD 
MOV 
JMP 


CLR 
TYPE 
MMHD 
MOV 
MOV 
MOV 
TYPE 
MSSP 
TYPE 
MAP 1 
TYPE 
M3SP 
MOV 
Typoc 
TYPE 
MFUN 
MOV 
TYPOC . 
INC 
CMP 
BNE 
TYPE 
MBSP 
TYPE 
MAP 
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TIYINP 

074, @TTYINP sSHOULD GET "<<" 

2 *6 

UNKINP PUNKNOAN INPUT 

TITYINP 

INVETT, S16 sSET INTR, ENABLE BITS OF ONLY 
$15 STHOSE MODULES THAT WERE SELECTED 
$15 jFORM ENABLE BIT BY NUMBER OF 
$16 INPUT MODULE SELECTED 

28 

815,817 

PC. NUMBER jsCHECK FOR NUMBER 
@®@TTYINP,INVET2 jsSTORE ® OF OUTPUT MODULE (58) 
€177760,INVET2 

es, INVET2  sNUMBER CANNOT BE LESS THAN § 
is 

INVETT *GET ACCUAL ADDR 

SMODIA, INVETT 

INVET2 

@MOD5SC, INVET2 

INVETT. @INVET2 #00 IT 

STAR sEXIT 


THIS ROUTINE MAPS AVAILABLE INFORMATION 


PSW PALLOWS INTERRUPTS 
sTYPE MAP HEADER 
826i. MAPi 9SET FOR FIRST MODULE 
@MODIA, Ri 
@MODIV, R2 
ITYPE SS SPACES (CARRIAGE RETURN) 
#TYPE MODULE NUMBER 
Cide,*(SP) 9SAVE (1)¢ FOR TYPEOUT 
9GO TYPEeeOCTAL ASCILICALL DIGITS) 
9TYPE "2S8SP INPUT SSP" 
(2) ¢s°(SP) PSAVE (2)¢ FOR TYPEOUT 
sa 1GO0 TYPE*@OCTAL ASCIICALL DIGITS) 
4 
SMODSA, Ri #DONE ALL INPUT MODULES? 
INMAP) 






1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
11014 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1311 
1112 
1113 
1114 
1115 
1116 
1117 
1316 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1136 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 


005434 
005436 
005440 
005442 
005444 
005446 
005450 
005452 
005454 
0035456 
005462 
005466 
005470 
005474 


005476 
005500 
005502 
005506 
005510 
005512 
005514 
005520 
005522 
005524 
005526 
005532 
005534 
005540 


005542 
005542 
005546 
005554 
005562 
005566 
005574 
005602 
005610 
005616 
005624 
005632 
005640 
005644 
005650 


MAINDECe11¢DZKHASA 
DZKHA,SRC 


104400 
011334 
012146 
104402 
104400 
011355 
013246 
001401 
104402 
005237 
020127 
001356 
000137 
000000 


104400 
011440 
013746 
104402 
104400 
011334 
013746 
104402 
104400 
011176 
005737 
001402 
000137 
000002 


012706 
012737 
012737 
105037 
012737 
012737 
012737 
012737 
032737 
012737 
012737 
005037 
005037 
005037 


MACY11,024 
HANDOLEFS 


005474 
004260 


005542 


001216 


001230 


004330 
005542 


001100 
006034 
000340 
001220 
005542 
006212 
000340 
007014 
000340 
007044 
000340 
001216 
001222 
001300 


000020 
000022 


001224 
000030 
000032 
000034 
000036 
000024 
000026 


28° JAN@74 


MAPi3 


SUM?! 


STAR? 


10:08 


TYPE 
M3SP 
MOV 
TyPpoc 
TYPE 
MFUNC2 
MOV 
BEQ 
TyPpoc 
INC 
CMP 
BNE 
JMP 
000000 


TYPE 
MSUM 
MOV 
TyPoc 
TYPE 
M3SP 
MOV 
TyPpoc 
TYPE 
MCRLF 
TST 
BEG 
JMP 
RTT 


MOV 
MOV 
MOV 
CLRB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
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(1)¢,"(SP) pSAVE (1) *OR TYPEOUT 
1GO TYPEeeOCTAL ASCIIC(ALL DIGITS) 
ITYPE "2SP*OUTPUT 6SP N/A 25P* 
@(2)¢, e(SP) 
28 
+TYPE CONNECTION 
MAP\ 
Ri, @MOD8Ae2 
is 
STAR 


f 
sRUN SUMMARY TYPEOUT ROUTINE 
’ 

ITYPE HEADER 


SPASS,°©(SP) pSAVE SPASS FOR TYPEOUT 

9GO0 TYPE*eOCTAL ASCIICALL DIGITS) 
SERTTL,=( SP) SAVE SERTTL FOR TYPEOUT 

960 TYPEeeOCTAL ASCIICALL DIGITS) 
CFLG tIF IN COMMAND MODE RETURN TCO STAR 
» #6 
STAR 


SRETURN TO WHAT WE WERE DOING 
MONITOR HOME 


SSTACK,SP sSETUP THE STACK POINTER 
*sSCOPE,@8IOTVEC sI10T VECTOR FOR SCOPE ROUTINE 

9340 ,O08IOTVECO2 pLEVEL 7 

STSTNM PINITIALIZE THE TEST NUMBER 

SSTAR, SLPADR PINITIALIZE THE LOOP ADDRESS FOR SCOPE 
SSERROR, OCEMTVEC sEMT VECTOR FOR ERROR(ERROR) ROUTINE 
8340, 88EMNTVEC +2 tLEVEL 7 

SSTRAP,OSTRAPVEC #TRAP VECTOR FOR TRAP CALLS 
6340,-@8TRAPVEC2 sLEVEL 7 

SSPWRON, @PWRVEC sPOWER FAILURE VECTOR 

€©340,06PWURVEC o2 sLEVEL 7 

SPASS ICLEAR THE PASS COUNT 

SICnT PINITIALIZE THE ITERATION COUNTER 
STIMES PINITIALIZE NUMBER OF ITERATIONS 








MAINDEC#11@DZKMAeA 


DZKHA,SRC 

1147 005654 
1146 

1149 005660 
1150 005664 
1151 005670 
1152 005676 
1153 005702 
1154 005710 
1155 005714 
1156 005716 
1157 005722 
1158 005730 
1159 005736 
1160 005742 
1161 005744 
1162 005746 
1163 005754 
1164 005756 
1165 

1166 

1167 

1168 

1169 

117¢ 

1171 

1172 

1173 005762 
1174 005766 
1175 005772 
1176 005776 
1177 006002 
1178 006004 
1179 006006 
1180 006010 
1161 006012 
1182 006016 
1183 006020 
1184 006022 
1185 006024 
1186 0606026 


1187 





006030 


105037 


005037 
005237 
012737 
005037 
012737 
105737 
001402 
0001337 
012737 
012737 
005037 
104400 
011402 
052777 
000001 
000137 


004737 
005037 
005037 
005237 
032737 
000000 
001216 
001007 
013700 
001404 
004710 
000240 
000240 
000240 
000137 


MACY11,024 
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001221 


001230 
004330 
000340 
003776 
011540 
001107 


007200 
003546 
000340 
177776 
000100 


005754 


007500 
001220 
001300 
001216 


000042 


001446 


26°JANe74 10508 PAGE 24 
CLRB SEPFLG 1CLEAR THE EPROP FLAG 
CLR SERTTL 
Inc CFLG 9SET COMMAND MODE 
17777e MOV #340, PSW 
CLR PUBF 
011534 MOV _ STTYINB, TTYINP 
TSTB STPFLG 9SEE IF THERE I5 A TERMINAL 
BEG is pIF GO AHEAD NORMALLY 
JMP NTH IF NOT THEN GO TO NO TERMINAL HANDLER 
000060 i183 MOV STTYIN,@860 
000062 MOV #340, @862 
CLR PSwW 
TYPE ;TYPE "oe" 
MSTAR 
175744 BIS #100,@8TKS 
WAIT sSPEND REST OF TIME HERE 
JMP ee2 


oSBTTL END OF PASS ROUTINE 
J®INCREMENT THE PASS NUMBER 

p@IF THERES A MONITOR GO TO IT 

p@IF THERE ISN°T JUMP TO START 


SEOP: JSR PC,EOPT 

CLR sTSTNM 

CLR STIMES 

INC SPASS 

BIT (PC), 0(PC)> 
SENDCT! ,WORD 0 

SPASS 

BNE SDOAGN 
$GET42! MOV 9042,R0. 

BEO SDOAGN 
SENDAD!: JSR PC, (RO) 

NOP | 

NOP 

NOP 
SDOAGNS JMP @eSTART 


sZEXO THE TEST NUMBER 

ZERO THE NUMBER OF ITERATIONS 
sINCREMENT THE PASS NUMBER 
pLOOP? 


sYUP 

9GET MONITOR ADDRESS 
SIF NONE 

9GO0 TO MONITOR 

sSAVE ROOM 

»FOR 

pACTIi1 

PRETURN 
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1186 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1196 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1206 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 


006034 
006034 
006040 


006042 


006044 
006050 
006056 
006062 
006066 
006070 
006072 
006076 
006100 
006100 
006104 
006106 
006112 
006116 
006124 
006126 
006132 
006134 
006140 
006146 
006150 
006156 
006164 
006170 
006174 
006202 
006206 
006210 


006212 
006212 
006216 
006222 
006224 
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006137 
100455 


C00416 


013746 
012737 
005737 
012637 
000436 
022626 
012637 
000436 


105737 
001404 
105037 
005037 
032737 
001011 
005737 
001406 
005237 
023737 
002012 
012737 
013737 
105237 
011637 
013737 
013716 
000002 
000020 


004737 
105237 
001775 
005237 


MACY11,024 
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10108 


END OF PASS ROUTINE 


177570 


000004 
006070 
177060 
000004 


000004 


001221 


001221 
001300 
004000 


001216 


001222 
001300 


000001 
006210 
001220 
001224 
001220 
001224 


007416 
001221 


601230 


000004 


177570 


001222 


001222 
001300 


177570 
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» SBITL 


p@Swidgeai 
p@SwWwiisi 


SCOPE HANDLER R®OUTINE 


LOOP ON TEST 


INHIBIT ITERATIONS 


s®THE TEST NUMBER (STSTNM) IS INCREMENTED AND DISPLAYED IN DISPLAY<730> 
S®AND THE ERROR FLAG (SERFLG) IS DISPLAYED IN DISPLAY<15108> 


SSCOPE! 
ROL @eSwR sLOOP ON PRESENT TEST? 
BMI SOVER sYES IF Swi4ei 
peeeeeSTART OF CODE FOR THE XOR TESTERseees 
SXITSTR: BR 6$ pgI1F RUNNING ON THE "XOR® TESTER CHANGE 
THIS INSTRUCTION TO A "NOP" (NOPS240) 
MOV @SERRVEC.°(SP) sSAVE THE CONTENTS OF THE ERROP VECTOR 
MOV 858,@8sERRVEC sSET FOR TIMEOUT 
TST @0177060 #TIME OUT ON XOR? 
MOV (SP)¢,@eERRVEC sRESTORE THE ERROR VECTOR 
BR SSVLAD 9G0 TO THE NEXT TEST 
583 CMP (SP)¢,(SP)¢ sCLEAR THE STACK AFTER A TIME OUT 
MOV (SP)¢,@S8ERRVEC sRESTORE THE ERROR VECTOR 
BR SOVER sLOOP ON THE PRESENT TEST 
683 pe@esseEND OF CODE FOR THE XOR TESTERSeses 
283 TSTB SERFLG sHAS AN ERROR OCCURRED? 
BEG 38 s8R IF NO 
483 CLRB SERFLG #ZERO THE ERROR FLAG 
CLR STIMES sCLEAR THE NUMBER OF ITERATIONS TO MAKE 
368 BIT 8SWiil,eeSakR SINHIBIT ITERATIONS? 
BNE is 9BR IF YES 
TST SPASS sIF FIRST PASS OF PROGRAM 
BEG is ? INHIBIT ITERATIONS 
Ine SICNT SINCREMENT ITERATION COUNT 
CMP STIMES,SICNT sCHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER BR IF MORE ITERATION REQUIRED 
iss MOV Oi ,6ICNT SREINITIALIZE THE ITERATION COUNTER 
MOV SMXCNT,STIMES SET NUMBER OF ITERATIONS TO vO 
SSVLAD!: INCB STSTNM sCOUNT TEST NUMBERS 
MOV (SP), S8LPAODR sSAVE SCOPE LOOP ADDRESS 
SOVERs MOV STSTINM,@O@DISPLAY #DISPLAY TEST NUMBER 
MOV SLPADR, (SP) FUDGE RETURN ADDRESS 
RTI sFIXES PS 
SMXCNTs8 20 “ gMAX, NUMBER OF ITERATIONS 
PP PSSSSHSSSSHHSSSHSSSHSSOHOCSHHHHSOHEHCESEOHSSSEECCHESESESSHSEOEOED 
e SBTTL ERROR HANDLER ROUTINE 
99Swise) HALT ON ERROR 
9*#SWi3e) INHIBIT ERROR TYPEOUTS 
9#GO TO SERRTYP ON ERROR 
SERROR! 
JSF PC, EEDNH 
765 INCB SERFLG AS 9SET THE ERROR FLAG 
BEG 76 sOON°T LET THE FLAG GO TO ZERO 
INC SERTTL sINC THE ERROR COUNT 
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1242 
1243 
1244 
1245 
1246 
1247 
12468 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1256 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
12686 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1268 
1289 
1290 
1291 
1292 
1293 
1294 
1295 


006230 
006234 
006242 
006250 
006256 
006260 
006264 
006270 
006274 
006276 
006300 


006302 
006302 
006306 
006310 
006312 
006316 


006320 


0906324 
006326 
006330 
006332 
006334 
006336 
006340 
006344 
006350 
006352 
006354 
006356 
006362 
006366 
006370 
006372 
006374 
006400 
006402 
006404 
006406 
006412 
006414 
006414 
006416 
006420 


011637 
162737 
117737 
032737 
001004 
004737 
104400 
005737 
100001 
000000 
000002 


104400 
010046 
005000 
153700 
001004 


013746 


104402 
000426 
005300 
006300 
006300 
006300 
062700 
012037 
001404 
104400 
000000 
104400 
012037 
001404 
104400 
000000 
104400 
011000 
001004 
012600 
104400 
000207 


013046 
104402 
005710 


MACY11,024 
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001240 
000002 
172772 
020000 


006302 
001303 
177570 


001303 


001236 


001240 


001306 
006354 


001303 
006372 


001303 


001303 


001240 
001236 
1773870 


26% 


10:08 


MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 
TST 
BPL 
HALT 


‘RTI 
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(SP),S8ERRAD 
®2,SERRAD 
@SERRAD,SITEMB 
8Swi3,@eSneR 

28 

PC ,-@SS6ERRTYP 

e SCRLF 

@aSwrk 

38 


1GET ADDRESS OF ERRUR INSTRUCTION 


STRIP AND SAVE THE ERROR ITEM CODE 
SKIP TYPEOUT IF SET 

sSKIP TYPEOUTS 

960 TO USER ERROR ROUTINE 


HALT ON ERROR 
pSKIP IF CONTINUE 
pHALT ON ERROR] 


»SBTTL 


ERROR MESSAGE TYPEOUT ROUTINE 


p@THIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 


p®ERROR I8-TO BE REPORTED, IT THEN OBTAINS, FROM THE “ERROR TABLE" (SERRTB), 


p®AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 


SERRTYP3! 


iss 


484 
583 
66% 


765 


TYPE 
MOV 
CLR 
BISsB 
BNE 


MOV 


TyPoc 
BR 
DEC 
ASL 
ASL 
ASL 
ADD 
MOV 
BEG 
TYPE 
» ¥ORD 
TYPE 
MOV 
BEG 
TYPE 
TYPE 
MOV 
BNE 
MOY 
TYPE 
RTS 


MOV 
TyPoc 
TST 


e SCRLF 
RO,e(SP) 

RO 
OSSITEMB,RO 
16 


SERRAD,@(SP) 


SSERRTB,RO 
(RO}o,28 
36 


0 

e SCRLF 
(RO), 48 
56 


0 

e SCRLUF 
(RO) RO 
76 
(SP)¢,RO 
e SCRLF 
PC 


@CRO)¢, (SP) 
(RO) 


"CARRIAGE RETURN" & "LINE FEED" 
sSAVE RO 
sPICKUP THE ITEM INDEX 


sIF ITEM NUMBER IS ZERO ONLY 
sTYPE THE PC OF THE ERROR 

pSAVE SERRAD FOR TYPEOUT 

pERROP ADDRESS 

1GO TYPEe*OCTAL ASCIICALL DIGITS) 
#GET OUT 

sADJUST THE INDEX SO THAT IT WILL 
’ WORK FOR THE ERROR TABLE 


sFORM TABLE POINTER 

pPICKUP “ERROR MESSAGE" POINTER 
pSKIP TYPEOUT IF NO POINTER 
sTYPE THE "ERROR MESSAGE" 
#"ERROR MESSAGE" POINTER GOES HERE 
p"CARRIAGE RETURN® & "LINE FEED" 
SPICKUP "DATA HEADER" POINTER 
sSKIP TYPEOUT IF 0 

#TYPE THE "DATA HEADER" 

y*DATA HEADER® POINTER GOES HERE 
p"CARRIAGE RETURN" & *LINE FEED" 
pPICKUP "DATA TABLE" POINTER 

9GO0 TYPE THE DATA 

pRESTORE RO 

P°CARRIAGE RETURN" & "LINE FEED" 
pRETURN 


SAVE @C(RO)* FOR TYPEQUT 
5GO TYPEeeOCTAL ASCIICALL DIGITS) 
$18 THERE ANOTHER NUMBER? 








C , 
rat 
& @ & & & & & 4 4 
ac 
| 
. ie 
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1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1306 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1316 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1333 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 


006422 
006424 
006430 
006432 


006436 
006442 
006450 
006454 
006460 
006462 
006462 
006470 
006476 
006504 
006506 
006510 
006512 
006516 
006520 
006524 
006530 
006534 
006540 
006542 
006544 
006546 
006550 
006852 
006554 


001770 
104400 
000771 
020040 
006436 


017646 
116637 
112637 
062716 
000406 


112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
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66 
88 
78 
/ 4 





s6R IF NO 

TYPE TwO(2) SPACES 
1LOOP 

yTWO(2) SPACES 


p@STYPOSe--ENTER HERE TO SETUP SUPPRESS 


p@STYPON@eerENTER HERE TO TYPE OUT WITH 


S@STYPOCTeeeENTER HERE FOR TYPEOUT OF A 


MACY11,.024 2¥eJANe74 10108 
ERROR MESSAGE TYPEOUT ROUTINE 
BEG 
006432 TYPE 
BR 
000 861 eASCIZ 
eEVEN 
eSBITL 
p®CALLI 
,® MOV 
,* TYPOS 
@ e BYTE 
se eBYTE 
| ed 
;@ 
;@ 
: s®S8TYPOS OR 8T 
s@CALL? 
@ MOV 
Bd TYPON 
| hd 
p®CALL! 
Bed MOV 
¢@ Tyeoc 
000000 STYPOS! MOV 
000001 006661 MOVB 
006663 MOVB 
000002 ADD 
STYPOCT?s 
000003 006661 MOVB 
000006 006663 MOVB 
00000858 006660 S&sTYPONS MOVB 
MOV 
MOV 
MOV 
006663 MOVB 
NEG 
000006 ADD 
006662 MOVB 
006661 MOVB 
000012 MOV 
CLR 
iss ROL 
BR 
283 ROL 
ROL 
ROL 
MOV 


BINARY TO OCTAL CASCII) AND TYPE 


NUM, (SP) 


YPOCT 
NUM,@(SP) 


NUM,@( SP) 


@(SP),°C(SP) 
1(SP),80FILL 
(SP), S8OMODE} 
62, (SP) 

STYPON 


#1,80F ILL 
€6,60MO0DEi 
$5,80CNT 
R3,°(SP) 
R4,e(SP) 
RS,eCSP) 
SOMODES1 , R4 
B4 

$6,R4 
R4,80MODE 
SOFILL,R4 
12(SP),RS 


ZEROS AND NUMBER OF DIGITS TO TrPE 


sNUMBER TO BE TYPED 
sCALL FOR TYPEOUT 


NS) TO 6 FOR NUMBER OF DIGITS TO TyPE 


948i OR O 
piSTYPE LEADING ZEROS 
sOSSUPPRESS LEADING ZERUS 


THE SAME PARAMETERS AS THE LAST 


sNUMBER TO BE TYPED 
sCALL FOR TYPEOUT 


16 BIT NUMBER 


pNUMBER TO BE TYPED 
sCALL FOR TYPEOUT 


#PICKUP THE MODE 

pLOAD ZERO FILL SwITCH 
NUMBER OF DIGITS TO TYPE 
sADJUST RETURN ADDRESS 


pSET THE ZERO FILL SWITCH 

sSET FOR SIX(6) DIGITS 

sSET THE ITERATION COUNT 

sSAVE R3 

pSAVE R4 

sSAVE RS 

sGET THE NUMBER OF DIGITS TO TYPE 


SUBTRACT IT FOR MAX, ALLOWED 
pSAVE IT FOR USE 

pGET THE ZERO FILL SWITCH 
yPICKUP THE INPUT NUMBER 
sCLEAR THE OUTPUT WORD 
sROTATE MSB INTO "C* 

9G0 DO MSB 

9FORM THIS DIGIT 


e 


=, 
: + 
Pat vy 
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1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 


006556 
006560 
006564 
006566 
006572 
006574 
006576 
006600 
006602 
006606 
006612 
006616 
006622 
006626 
006630 
006632 
006634 
006636 
006640 
006642 
006644 
006652 
006654 
006656 
006657 
006660 
006661 
006662 


006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
052703 
410337 
104400 
105337 
003347 
002402 
005204 
000744 
012605 
012604 
012603 
016666 
012616 
000002 

000 

000 

000 

000 
000000 
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365 ROL 
606662 DECB 
BPL 
177770 BIC 
BNE 
TST 
BEO 
4gt INC 
000060 BIS 
000040 583 BIS 
006656 MOVB 
006656 TYPE 
006660 7838 DECB 
BGT 
BLT 
Inc 
BR 
68% MOV 
MOV 
MOV 
000004 MOV 
MOV 
RTI 
683 eBYTE 
eBYTE 
SOCNT: ,BYTE 
SOFILL!: ,BYTE 
SOMODES 0 


000002 


GE 28 


#177770,R3 
ae 

r4 

58 

R4 

¢°0,R3 

e° ,R3 
R3,88 

88 

SOCNT 

268 

66 

RS 

28 
(SP)¢,RS 
(SP)¢,R4 
(SP)¢,R3 
2(SP),4(SP) 
(SP)¢, (SP) 


eooco 


9GET LSB OF THIS DIGIT 
sTYPE THIS DLIGIT? 

9BR IF NO 

9GET RID OF JUNK 

sTEST FOR O 

SUPPRESS THIS OP? 

s8R IF YES 

sDON°T SUPPRESS ANYMORE 0°S 
sMAKE THIS DIGIT ASCII 
pMAKE ASCII IF WOT ALREADY 
sSAVE FOR TYPING 

9GO TYPE THIS DIGIT 

pCOUNT BY 1 

#BR IF MORE TO DO 

sBR IF DONE 

pINSURE LAST DIGIT ISN°T A BLANK 
960 DO THE LAST DIGIT 
pRESTORE RS 

sRESTORE RG 

pRESTORE R3 

sSET THE STACK FOR RETURNING 


pRETURN 

sSTORAGE FOR ASCII DIGIT 
sTERMINATOR FOR TYPE ROUTINE 
sOCTAL DIGIT COUNTER 

9ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 
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1378 
1379 
1380 
1381 
1382 
1383 
1384 
1365 
1366 
1387 
1386 
1369 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1396 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
14038 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1416 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1426 
1429 
1430 
1433 





006664 
006664 
006666 
006670 
006672 
006674 
006700 
096704 
006710 
006712 
006714 
006716 
006720 
006722 
006724 
006730 
006732 
006736 
006740 
006744 
006746 
006750 
006754 
006756 
006762 
006764 
006766 
006772 
006776 
007000 
G07002 
007004 
007006 
007010 
007012 


007014 


010046 
010146 
010246 
010346 
013700 
013703 
012703 
005002 
006300 
006101 
006102 
005203 
001373 
063702 
005501 
063701 
005502 
062700 
005501 
005502 
062701 
005502 
062702 
060200 
005501 
010037 
010137 
012603 
012602 
012601 
012600 
000207 
176543 
123456 


007032 
007010 
177773 


007012 
007010 
001057 


047401 
000006 


007012 
007010 


a 
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eSBITL 


s@CALLE 
,@ 


SRAND? 


JSR 
RETURN 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
ASL 
ROL 
ROL 
INC 
BNE 
ADD 
ADC 
ADD 
ADC 
ADD 
ADC 
ADC 
ADD 
AoC 
ADD 
ADD 
ADC 
MOV 
MOV 
MOV 
MOV 
MOV 
MOY 
RTS 


SHINUMS ,WORD 


SLONUM? 


RANDOM NUMBER GENERATOR ROUTINE 


PC,S8RAND 


RO,e(SP) 
Ri,=(SP) 
R2,°CSP) 
R3,°(SP) 
SLONUM,RO 
SHINUM,RI 
e7,R3 

R2 

RQ 

Ri 

R2 

R3 

is 
SLONUM,R2 
Ri 
GHINUM, RY 


R2 
#1057,R0 
| 
R2 
€¢°¢61,R} 
R2 

66,R2 
R2,R0 

Ri 

ROe SLONUM 
Ri, SHINUM 
CSP)¢,R3 
(SP)¢,R2 
(SP)¢,Ri 
(SP)¢,RO 
PC 


176543 
123456 


sCALL THE ROUTINE 
SRETURN HERE THE RANDOM 
NUMBER WILL BE IN 
1SHINUM, SLONUM 


1PUSH RO ON STACK 
sPUSH Ri ON STACK 

»PUSH R2 ON STACK 

yPUSH R3 ON STACK 

#SET RO WITH LOW 

9SET Ri WITH HIGH 

#SET SHIFT COUNT 

#ZERO R2 

:SHIFT RO LEFT AND 
pROTATE CARRY INTO Ri AND 
sROTATE CARRY INTO R2 
-$CHECK FOR DONE 
/)CONTINUE SHIFT LOOP 

yADD NUMBER TO MAKE X 129 
+PROPOGATE CARRY 

sADD NUMBER TO MAKE X 429 
sPROPOGATE CARRY 

sADD LOW CONSTANT 
sPROPOGATE CARRY 
»PROPOGATE CARRY 

FADD HIGH CONSTANT 
#PROPOGATE CARRY 

pADD HIGHEST CONSTART 
pREPRIME RO WITH HIGHEST DIGIT 
»PROPOGATE CARRY 

ISAVE RO 

PSAVE Ri 

#POP STACK INTO R3 

#POP STACK INTO R2 

:POP STACK INTO Rj 

yPOP STACK INTO RO 
;RETURN 


e SBTTL 


TRAP DECODER 


pTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP® INSTRUCTION 
p@AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
p@OF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
9*GO TO THAT ROUTINE, 


STRAPS 


MOV 


RO,e(SP) 


PSAVE RO 
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DZKHA,SRC 
1432 007016 
1433 00702z 
1434 007024 
1435 007076 
1436 007032 
1437 
1438 
1439 
1440 
144) 
1442 
1443 
1444 
1445 
1446 007034 
1447 007036 
1448 007040 
1449 007042 
1450 
1451 
1452 
1453 
1454 
1455 007044 
1456 007052 
1457 007060 
1458 007062 
1459 007064 
1460 007066 
1461 007070 
1462 007072 
1463 007074 
1464 007100 
1465 007106 
1466 o0c7110 
1467 
1468 
1469 007112 
1470 007116 
1471 007122 
1472 007126 
1473 007130 
1474 007132 
1475 007134 
1476 007136 
1477 007140 
1478 007142 
1479 007144 
1480 6007352 
148; 0074360 
1482 007164 
1483 007170 
1484 007172 
1485 OO7176 


016600 
005740 
111000 
016000 
000200 


001110 
006462 
006436 
006476 


012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
010637 
012737 
000000 
000776 


013706 
005037 
005237 
001375 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104400 
012716 
000002 
690000 
000776 


MACY11,024 


TRAP DECODER 


000002 


007034 


007172 
000340 


607176 
OO07112 


007176 
007176 
007176 


007044 
000340 
011464 
005542 


000024 
000026 


000024 


000024 
000026 





Zhe JAN|T4 


10808 


“CV 
TST 
MOVE 
MOV 
RTS 


eSPBTTL 
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2(SP),R0 GET TRAP AUVDRESS 

©(P0) PHACKUP BY 2 

(F0),R0 1GET RIGHT BYTE OF TRAP 
STRPAD(RO),FO INDEX TO TABLE 

RO 1G0 TO ROUTINE 

TRAP TABLE 


s®THIS TABLE CONTAINS THE STAPTING ADDRESSES OF THE ROUTINES CALLED 
,@BY THE "TRAP" INSTRUCTION, 


i ROUTINE 

, SP2eeOn ew 

STRPAD: STYPE 
STYPOCT 
SsTYPOS 
STYPON 


pCALLSTYPE TRAP©O(104400) TTY TYPLEOUT RUUTINE 

sCALLeTYPOC TRAP*#2(104402) TYPE OCTAL NUMBER (wITH LEADING 
1CALL#TYPOS TRAP#4(104404) TYPE OCTAL NUMBER (NO LEADING ZE 
sCALL#STYPON TRAP®6(104406) TYPE OCTAL NUMBER (AS PER LAST C 


PP SRSSSSHSSSSHSSSSSSSSSHHSSHSSSHSSSSSHHSHSHSSEHHEHSHSSEHSCETESCHOHSCESEOS 


e SBITL 


POWER DOWN AND UP ROUTINES 


sPOWER DOWN ROUTINE 


SPWRON? 


sPOWER UP ROUTINE 


SPWRUP? 


163 


SILLUP! 


MOV SSILLUP,@ePeRVEC 
MOV 8340, 08PWRVEC 2 

MOV RO,@C(SP) 

MOV Ri,e(SP) 

MOV R2,°(SP) 

MOV R3,e(SP) 

MOV R4,°e( SP) 

MOV RS,°(SP) 

MOV SP,8SAVR6 

MOV SSPAURUP,B@SPaRVEC 
MALT 

BR eta 

MOV SSAVRE6E,SP 

CLR SSAVFR6 

INC SSAVR6 

BNE is 

MOV (SP)¢e,RS5S 

MOV (SP)o,R4 

MOV (SP)¢,R3 

MOV (SP)¢,R2 

MOV C(SP)¢,Ri 

MOV (SP)¢,RO 

MOV @G6PWRON,@ePWRVEC 
MOV $340, @08PWRVEC ¢2 

TYPE POWER 

MOV @STAR, (SP) 

RTI 

HALT 

BR 7a 


#SET FOR FAST UP 
sPRIO87 

#PUSH RO ON STACK 
pPUSH PF ON STACK 
pPUSH R2 ON STACK 
sPUSH R3 ON STACK 
sPUSH R4 ON STACK 
sPUSH FS ON STACK 
PSAVE SP 

sSET UP VECTOR 


HANG UP 


GET SP 

sWAIT LOOP FOR THE TTY 
PWAIT FOR THE INC 

s;0F WORD 

9POP STACK INTO RS 
sPOP STACK INTO R@ 
#POP STACK INTO R3 
sPOP STACK INTO R2 
sPOP STACK INTO Rj 
sPOP STACK INTO RO 
sSET UP THE POWER DOWN VECTOR 
sPRIO8? 

pPOWER FAIL MESSAGE 
pRESTART AT STAR 


sTHE POWER UP SEQUENCE WAS STARTED 
} BEFORE THE POWER DOWN WAS COMPLETE 








MAINDECe11*DZKHA@A 


DZKHA,SRC 
1466 007176 
1487 
1466 
1489 
1490 
1491 
1492 
1493 007200 
1494 007204 
1495 007212 
1496 007214 
1497 007220 
1498 007222 
1499 007226 
1500 007230 
1501 007236 
1502 007242 
1503 007246 
i504 
1505 007252 
1506 007254 
1507 007256 
1s08 007260 
1509 007262 
1510 007264 
i511 007266 
1512 007270 
1813 007272 
i514 
1515 
i516 
1517 
1518 
i519 
1520 007274 
1521 007302 
1522 007304 
1523 007312 
1524 
1525 
1526 
1527 
1528 
1529 
1530 007316 
1531 007324 
1532 607332 
1533 007340 
1534 007346 
i835 007354 
1536 007360 
1537 007364 


1536 





007370 


000000 


012706 
112737 
000000 
113700 
001002 
000137 
000000 
013737 
042700 
062700 
000170 


000000 
001446 
004510 
004576 
007274 
007304 
005100 
005036 
007316 


012737 
000403 
012737 
000137 


113737 
042737 
113737 
112737 
113737 
006037 
006037 
006037 
042737 


MACY11,6024 


28°JANo74 


10:06 


POWER DOWN AND UP ROUTINES 


001100 
000001 


177570 
001446 


177570 
177761 
007254 
000000 


000001 


000002 
004714 


177570 
177770 
001270 
000074 
177570 
001270 
001270 
001270 
177760 


001107 


004500 


005024 
005024 


001270 
001270 
011540 
011541 
001270 


001270 


SSAVF6: 0 


NTHS 


NTHF 8 
NTHFPs 


NTF28 


NTF 38 
NTF 3A8 


NTF 4s 


MOV 
MOVB 
HALT 
MOVB 
BNE 
JMP 
HALT 
MOV 
BIC 
ADD 
JMP 


* 900000 


START 
NTFO 
NTFi 
NTF2 
NTF 3 
INUNC 
INNOR 
NTF4 


MOV 
BR 

MOV 
JMP 


MOVB 
BIC 
MOVB 
MOVPF 
MOVS 
ROR 
ROR 
ROR 
BIC 


PAGE 31 


NO TERMINAL HANDLER 
ENTER HERE FROM START AT 210 


SaR, 


8177761, 


ONTHFP, 
@(0) 


SP 
STPFLG 


RO 


NINP 
RO 


sPUT THE SP HERE 


sSET UP STACK POINTER 
REMEMBER WE HAVE NO TERMINAL 


SWAITE FOR DIRECTIVE 
SAVE DIRECTIVE FOR LIST 


SIF HE WANTED TO START TESTING 


sDON°T HALT AGAIN 


WAIT HERE FOR ADDRESS 
sSTORE ADDRESS 


RO 


pMAKE SURE HE DIN°’T GIVE ME BAD DIRECTIVE 


$GET READY TO GO TO A PLACE THAT 
STHAT WILL TAKE CARE OF DIRECTIVE 


SOIRECTIVE POINTER 


»SHR#O 
sSWREZ 
pSWReg 
1SWRE6 
;SWReiLO 
sSWROi2 
sSURSi4 
;SHRei6 
pNOTE?s 
} 


START TESTING 

INPUT MODULE ADR, 

ENTER OUTPUT MODULE ADR, 
ENTER IST GROUP VECTER ADR, 
ENTER 2ND GROUP VECTER ADR, 
UNCONNECT MODULES 

MAKE NORMAL CONNECTIONS 
CONNECT TwO MODULES (SOFT) 
INPUT MODULE 8 IN SWR 022 
OUTPUT MODULE ® IN SWR J3-6 


: 
STHIS ROUTINE HANLDES INPUTTING VECTORS 


f 

$i, 
NIF3A 
626 
NTF 38 


INVETT 
INVETT 


sENTER VECTOR FIRST GROUP 
#BRANCH AHEAD 
sENTER VECTOR SECOUND GROUP 


gNOW GO TO NORMAL ROUTINE THAT TAKES CARE OF IT 


} | 
¢sTHIS ROUTINE HANDLES CONNECTING 2 MODULES wITH NO 
sTERMINAL BY SETTING UP INPUT BY SWR TO LOOK 

sLIKE INPUT FROM A TTY THEN TRANSFERRING TO NORMAL 


pROUTINE 

i 

SHR, STMPO 
8177770-6TMPO 
STMPO, TTYINB 
874, 

SuR, STMPO 
sTMPO 

sTMpo 

STMPO 
$177760,8TMPO 


pGET SWR 

sFORM INPUT MODULE ®@ 
sFUDGE IT TO LOOK LIKE IT 
TIYINB¢1 sCAME FROM TTY INPUT 
sGET SWR 

sFORM OUTPUT MODULE @ 


#MAKE IT LOOK 


LIKE 


C5 6n00 ss) ea 


MAINDEC#11°DZKHASA MACY11,024 26eJAN=74 10808 PAGE 32 
DZKHA,SRC POWER DOWN AND UP ROUTINES 
1539 007376 113737 001270 011542 MOVB STIMPO, TTYINbe2 sTTY INPUT © THEN 


& 
% 
8 
ta 
& 
& 
€ 
s 
@ 
& 
& 
@ 
i 
& 
& 
& 
ed 
= 
g 





ED REISE RLS EEE EDGES LE NTE LE LT en i ks 
al 


ON LL a a aes ne! 





MAINDEC #11 °DZKHACA MACY11,024 28°JANe74 10:08 PAGE 33 
DZKHA,SRC POWER DOWN AND UP ROUTINES 

1540 007404 012737 011540 011534 MOV ®TTYINB,TTYINP 14G60 TO ROUTINE THAT HANDLES TTY 

1541 007412 000137 00513¢c JMP Since SINPUT FOR SINGLE CONNECTIONS 

1542 

1543 SERROR HANDLER DOES OUTPUT TERMINAL EXIST? 

1544 

1545 007416 005037 177776 EEDNHt CLR PSw 

1546 007422 105737 001107 TSTB STPFLG ;DOES TTY EXIST? 

1547 007426 001001 BNE 28 

1548 007430 000207 18s RTS PC tYES@EXIT 

1549 007432 032737 020000 177570 288 BIT 8SW13,@eSWR 

1550 007440 001373 BNE is 

1531 

1552 007442 011637 001240 MOV (SP)> SERRAD #GET ADDRESS OF ERROR CALL 

1553 007446 162737 000002 001240 SUB 82, SERRAD 

1554 007454 117737 171560 001236 MOVB @SERRAD,SITE“B 3GET NUMBER OF ERROR 

1555 007462 005237 001230 INC SERTTL PINCERROR COUNT 

1556 

1557 007466 000000 HALT fAN ERROR HAS OCCURED AKD 

1556 007470 000240 NOP sNO OUPUT TERMINAL EXISTS 

1559 007472 062716 000004 ADD 84,(SP) sFOLLOW THE PROCEEDURE IN SECTION 6,1 

1560 007476 000002 RTI SDOCUMENTATION TO SEE WHAT ERROR OCCURED 

156} 

1562 i 

1563 yTHIS ROUTINE PRINTS “END PASS" IF ENABLED 

1564 ’ 

1565 

1566 007500 105737 001107 EOPT: TSTB STPFLG 9SEE IF WE HAVE OUTPUT TERMINAL 

1567 007504 001006 BNE is sIF NOT DON*®T PRINT END OF PASS 

1566 007506 032737 002000 177870 PIT 82000,SeR pSEE IF HE INHIBITED END PASS TYPEOUT 

1569 007514 001002 . BNE is #BY SETTING BIT 10 IN SwR 

1570 907816 104400 TYPE 

1571 007520 011423 MEOP 

1572 007522 000207 iss RTS PC pEXIT 


~ 


BS x 





MAINDECe11°DZKHAoA 
OZKHA,SRC 


1573 
1574 
1575 
i576 
1577 
15786 
1579 
1580 
1584 
1582 
1583 
1584 
15865 
1586 
1587 
1588 
1589 
1590 
1593 
1592 
1593 
i594 
1595 
1596 
1597 
1596 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
16114 
1612 
16133 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 





007524 
007532 
007540 
007546 
C075$2 
007560 
007564 
007572 
007600 


007606 
007614 
097622 
007630 
067636 
007640 
007646 
007654 
007662 
007670 
007676 
007703 
007710 
007716 
007724 
007732 
007740 
007746 
007754 
007760 
007766 
007774 
010002 
010010 
010016 
010024 
010032 
010040 
010041 
010046 
010054 
010062 
010066 
010074 
010102 
010110 
010116 
010124 
010132 


001240 
001246 
001240 
001270 
001240 
001244 
001240 
001260 
001240 
000000 
000000 


005015 
051055 
042526 
020101 
000122 
005015 
020124 
042514 
042514 
044440 
052522 

015 
052125 
046325 
042524 
042524 
033440 
050040 
052111 
005015 
046505 
044524 
020105 
042105 
046103 
0471131 
047515 

000 

015 
020114 
051505 
047522 
005015 
051122 
047440 
020106 
026122 
046125 

072 


MACY11,624 


POWER DOWN AND 


001242 
001250 
001242 
000000 
001270 
000000 
001254 
001262 
001270 


042523 
041505 
042040 
0511305 


047111 
047515 
043040 
020104 
052116 
052120 
044412 
046440 
020105 
051122 
020104 
047522 
044522 
000133 
054523 
044440 
046101 
040506 
052040 
040505 
052520 
052504 


042012 
042101 
020123 
000122 
047111 
050125 
052125 
051117 
051440 
020104 


001244 
C00000 
001244 


001242 


001256 
000000 
000000 


042116 
042511 
052101 
047522 


052520 
052504 
044501 
047524 
051105 

000 
650116 
042117 
047111 
050125 
052101 
043516 
051117 


052123 
044516 
055111 
046111 
020117 
020122 
020124 
042514 


040525 
051104 
051105 


042524 
051524 
047440 
042504 
047510 
042502 


2beJAN@74 


(101208 


UP ROUTINES 


DOTis 
DT2i 
DT33 
DT43 
DTS2 
DT6s0 
DFis0 
EMi?t 


EM2s 


EM33 


EM43 


EM63 


e¥ORD 
e#ORD 
e*ORD 
e "ORD 
»WORD 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCII 


PAGE 34 


SERRAD, SGDADR, SBDADR, SGDDAT, BBDLDAT,0 
SERRAD, SGDADR,SBDADR,&TMPO,0 
SERRAD,STMPO,SGDADR, SBDADR,O 

SERRAD, GREGO, SREG1,6REG2,6REG3,0 
SERRAD,&STMPO,0 


sASCII MESSAGES 
<15>¢€12>/SENDeRECIEVE DATA ERROR/ 


<15>€12>/INPUT MODULE FAILED TO INTERRUPT/ 


<15>€12>/INPUT MODULE INTERRUPTED AT WRONG PRIORITY/ 


<15>€42>/SYSTEM INITIALIZE FAILED TU CLEAR INPUT MODULEs/ 


€15><€32>/DUAL ADDRESS ERROR/ 


<15>¢€12>/INTERRUPTS OUT OF ORDER, SHOULD BEt/ 





MACY11,624 28eJAN©74@ 10208 PAGE 35 


POWER DOWN AND UP ROUTINES 


MAINDECe11°DZKHAeCA 
DZKHA,SRC 





1627 
1626 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1666 
1669 
1670 
1673 
1672 
1673 
1674 


010133 
010140 
010146 
010154 
010162 
010170 
010171 
010176 
010204 
010212 
010220 
010226 
010234 
010242 
010247 
010254 
010262 
010270 
010275 
010302 
010310 
010316 
010324 
010332 
010335 
010342 
010350 
010356 
010364 
010372 
010376 
010404 
010432 
010420 
010426 
010434 
010442 
010450 
010456 
010464 
010472 
010476 
010504 
010512 
010520 
010526 
010534 
010542 


015 
051105 
042524 
052116 
047411 

000 

015 
044524 
020105 
042105 
046103 
O47111 
047105 
041040 

015 
047503 
044524 
040515 

015 
047111 
047515 
040440 
042440 
042105 

015 
052517 
046440 
020105 
020056 
042522 
005015 
051117 
027122 
042440 
042105 
044440 
046440 
024105 
020116 
041505 
051450 
005015 
020122 
051104 
042101 
020040 
020040 
040524 


044412 
037063 
032122 
051105 
042524 


044412 
046101 
040506 
052040 
040505 
051124 
6041101 
052111 
047012 
047116 
047117 
042504 
047012 
052520 
082504 
042104 
052116 

000 
047012 
050124 
042117 
042101 
047105 
000104 
042526 
040440 
047040 
052116 
043040 
050116 
042117 
024523 
047503 
044524 
000051 
651105 
020040 
020040 
051104 
040504 
020040 


052116 
047111 
044476 
037061 
031122 


044516 
055111 
046111 
020117 
020122 
020056 
042514 

000 
020117 
041505 
020123 

000 
020117 
020124 
042514 
027122 
051105 


020117 
052125 
046125 
051104 
042524 


052103 
042104 
052117 
051105 
051117 
052125 
046125 
044440 
047116 
047117 


047322 
042101 
020040 
020040 
040524 
040504 


EM73 


EMii8s 


EMi2s 


EM1i38 


EM143 


DHis 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCII 


€152€12>/INTERIPINTERGP INTER OINTER2Z/ 


€15>€12>/INITIALIZE FAILED TO CLEAR INTR, ENABLE BIT/ 


€152€12>/NO CONNECTIONS MADE/ 


€15>¢€12>/NO INPUT MODULE ADDF, ENTERED/ 


€15>€12>/NO OUTPUT MODULE ADDR. ENTERED/ 


€15>€32>/VECTOR ADDR, NOT ENTEPED FOR INPUT MODULE(S) IN CONNECTION(S)/ 


<15>€12>/ERROR ADDR ADDR DATA DATA/ 





MAINDEC@i 1eDZKHA@A 
DZKHA,SRC 


1675 
1676 
1677 
1676 
1679 
1680 
16861 
1662 
1683 
16864 
1685 
1686 
16867 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1763 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
i711 
1712 
1713 
1714 
1715 
1716 
1717 
17138 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 


010544 
010552 
010560 
010566 
010574 
010602 
010610 
010611 
010616 
010624 
010632 
010640 
010646 
010647 
010654 
010662 
010670 
010676 
010704 
010706 
010714 
010722 
010730 
010736 
010744 
010752 
010760 
010766 
010774 
011002 
011003 
011010 
011016 
011024 
011032 
011040 
011043 
011050 
011056 
011064 
011072 
011100 
0113102 
011110 
013116 
011120 
011126 
011134 
011137 
0113144 
041152 
011160 
011166 
011167 


605015 
020040 
020124 
047111 
020040 
020104 

000 

015 
051117 
042104 
040440 
020040 

i123 

015 
020040 
0352125 
044440 
020040 
000124 
005015 
020122 
051104 
042101 
020040 
005015 
020040 
020124 
047111 
020040 

000 

015 
051117 
052116 
044440 
020062 
051105 

015 
020040 
042104 
040440 
020040 
000122 
005015 
020122 
051104 
005015 
020040 
051124 

015 
051107 
052117 
044516 

000 

040 


MACY11,024 


POWER DOWN AND 


041520 
020040 
020040 
020040 
054105 
020040 


042412 
020040 
020122 
042104 
050040 


050012 
020040 
020040 
020116 
051440 


051105 
020040 
020040 
051106 
042103 
041520 
020040 
020040 
020040 
052504 


042412 
020040 
051105 
052116 
044440 

063 
050012 
020040 
020122 
042104 
040440 


051105 
020040 


041520 
020040 

000 
050012 
046501 
051040 
043516 


057040 


020040 
052517 
020040 
020040 
023520 
047111 


051122 
040440 
020040 
020122 
047522 


020103 
047440 
020040 
020040 
040524 


047522 
042103 
020040 
020040 
033104 
020040 
052517 
020040 
020040 
046101 


051122 
044440 
020061 
051105 
052116 


020103 
040440 
020040 
020122 
042104 


047522 
042101 


020040 
047111 


047522 
047040 
047125 
020040 


000103 


26°JANOT4 


DH23 


DH3! 


DH4! 


DHSs 


DH73% 


MCONC? 


10:08 
UP ROUTINES 


eASCIZ 


eASCII 


eASCIZ 


eASCII 


eASCIZ 


eASCII 


gASC1Z 


eASCII 


sASCIZ 


eASCIZ 


eASCIZ 


PAGE 36 


<€15>€12>/PC 


€15>¢€12>/ERROR 


<15><€12>/PC 


€15><€12>/ERROR 


<15>€32>/PC 


€15>¢€12>/ERROR 


<15>¢12>/PC 


€15><12>/ERROR 


€15><€12>/PC 


€1523¢€12>/PROGRAM NOT RUNNING 


fF 


OUT 


ADOR 


OUT 


ADDR 


OUT 


INTER) 


ADOR 


ADDR/ 


INTR/ 


IN 


ADDF 


IN 


ADDR 


IN 


INTER2 


ADDR 


/ 


EXP°D 


PROS/ 


STAT/ 


ADDR/ 


DUAL/ 


INTER3/ 


ADDR/ 





IN/ 





~ 
4 | 





¥ 


y 


& é 
MAINDECe11leDZKHAeA MACY11,024 28eJANe74 10808 PAGE 37 Pa 
DZKHA,SRC POWER DOWN AND UP ROUTINES 
1729 011174 000134 MBS# eASCIZ /N4 & 
1730 011176 005015 000 MCRLF¢ eASCIZ <15274€12>7// 
1731 0113201 015 047412 0642104 MODADR# ,ASCIZ €15>¢€12>/0Db ADDPESSeNOT ACCEPTED, 
1732 011206 040440 042104 042522 & 
1733 0131214 081523 047055 052117 
1734 011222 040440 041503 050105 
1735 011230 042524 000104 a 
1736 011234 005015 047515 052504 M™MHD?! eASCIZ €15>€12>/MODULE NO ADDRESS FUNCTION VECTOR CONNECTED TOs 
1737 011242 042514 047040 020117 
1738 0113250 040440 042104 042522 & 
$739 011256 051523 020040 052506 
1740 011264 041516 044524 047117 
1741 011272 020040 042526 052103 S 
1742 0113300 081117 020040 047503 
1743 011306 047116 04135058 042524 
1744 011314 020104 047524 000 * 
1745 011321 015 020012 020040 MBSP: eASCIZ <153¢€12>/ 
1746 011326 020040 020040 000040 
1747 011334 020040 000040 M3SP3 eASCIZ / / & 
1746 011340 020040 047111 052520 MFUN? eASCIZ 4 INPUT / 
1749 011346 020124 020040 020040 
1750 011354 000 ad 
1751 011355 040 047440 052125 MFUNC2! ,ASCIZ 1 QUTPUT N/A j 
1752 011362 052520 0620124 020040 
1753 011370 020040 047040 040457 ge 
1754 011376 020040 000040 
1755 011402 005015 000052 MSTARs’ ,ASCIZ €152<12>/0/ 
1756 011406 005015 052522 047116 MRUNS eASCIZ €15>€42>/RUNNING,,,7/ ry 
1757 011414 047111 027107 027056 
1758 011422 000 
1789 011423 015 042412 042116 MEOP? eASCIZ €15>€12>/END PASS / x 
1760 011430 050040 081501 020123 
1761 011436 000040 
1762 011440 005015 0405320 051523 MSUM3 eASCIZ €15>€12>/PASSES ERRORS/<15><12> a 
1763 011446 051505 020040 042440 
1764 0113454 081122 051117 006523 
1765S 011462 000012 e 
1766 011464 005015 042522 052524 POWER: ,ASCIZ <15>€12>/RETURN TO MONITOR FROM POWER FAILURES 
1767 011472 047122 082040 020117 
1766 011500 047515 044516 047524 & 
1769 011506 020122 051106 046517 
1770 011514 050040 053517 081105 
1771 011522 043040 044501 052514 € 
1772 011530 042522 000 
i773 011534 eEVEN 
1774 011534 000000 TTYINP! 600000 a 
1775 0113536 005015 UNKINWS ,ASCII €15>412>// 
1776 011540 000000 TTYINB!’ 000000 
1777 011642 e®,#100 & 
1776 000001 eEND 
ay 
Eo 











MAINDECe11°DZKHACA 


OZKHA,SRC 

AINT 003214 
BITOi # 000002 
BITOS ss 000040 
BITO9 # 001000 
BITi2 # 010000 
BIT2 2 000004 
BIT6 = 000100 
BPITVEC = 000014 
DATAO 002114 
DHi 010476 
DHS 0111302 
DT2 007540 
DTé6 = 000000 
EEONH 007416 
EMi2 010275 
—EM3 007703 
EM? 010171 
INADRI 004504 
INMAP 005334 
INTPO] 004316 
INTRS4 003534 
INVETT 008024 
MBS 011174 
MFUN 011340 
MODIA 004240 
MOD3A 004244 
MODSA 004250 
MOD7A 004254 
MRUN 011406 
M@SP 011321 
NTF{ 004576 
NTF3B 004714 
NTHFP 007254 
POPSP2 = 022626 
PWRVEC = 000024 
RO #%000000 
R4 #3000004 
SFIVE 004302 
SINT 002230 
SINTS 002412 
SINT? 002644 
STAR 005542 
START3 001526 
SWR s 177570 
SWO2 = 000004 
S#06 =s 000100 
Swi = 000002 
$wi3 = 020000 
Sw3 = 000010 
Sw? ® 000200 
$16 005032 
TRTVEC # 000014 
TYPE ® 104400 
UNKINP 004164 


MACY11,624 
SYMBCL TABLE 


AINTER 
BITO2 
BITO6 
BIT 
BIT1i3 
BIT3 
BIT? 
CFLG 
DATA 
DH2 
DH? 
oT3 
DUAL 
EMTVEC 
EmMi3 
EmM4 
EOPT 
INADRO 
INMAP1 
INTRS1 
INUMB 
INVET2 
MCONC 
MFUNC2 
MODIV 
MOD3V 
MODSC 
MOD7C 
MSTAR 
NINP 
NTF2 
NTF4 
NUMBER 
POWER 
RESVEC 
Ri 


SINTSR 
SINT7R 
START 
START4 
Swo 
Sw03 
Swo7 
Swiod 
Swid4 
Sw4 
Sw6 
$17 
TTYIN 
TyPpoc 
UNKINW 


weverr. ere 


003444 
000004 
000100 
000002 
020000 
000010 
000200 
004330 
001764 
010611 
011137 
007552 
003072 
000030 
010335 
007760 
007500 
004572 
005362 
003476 
004372 
005026 
011167 
013355 
004260 
004264 
004270 
904274 
011402 
004500 
007274 
007316 
004000 
011464 
000010 


#3000001 
#$000005 


005130 
002310 
002532 
002716 
001446 
001550 
000001 
000010 
000200 
002000 
040000 
000020 
000400 
005034 
003546 
104402 
011536 


BITO 
BITO3 
BITO? 
BIT10 
BITi4 
BIT4 
BITS 
DATAR 
DESIFR 
DH3 
DISPLA 
DT4 
OUALT 
EMi 
EMi4 
EMS 
ERRVEC 
INIT 
INNOR 
INTRS2 
INUNC 
10TVEC 
MCRLF 
MMHD 
MOD2A 
MOD4A 
MODGA 
MODGA 


R6 
SINT4 


VECTOR 


26°JANeo74 10108 PAGE 38 


000001 
000010 
000200 
002000 
040000 
000020 
000400 
002042 
004030 
010706 
177570 
007564 
003126 
007606 
010376 
010041 
000004 
002730 
005036 
063510 
005100 
000020 
031176 
011234 
004242 
004246 
004252 
004256 
011440 
004502 
007304 
007200 
004226 
177776 
003776 


#8000002 
#8000006 


001632 
002320 
002552 


88000006 


003476 
001572 
000001 
000020 
000400 
004000 
100000 
000040 
001000 
000014 
011540 
104406 
004300 


R7 
SINGLF 
SINT4R 
SINTGOR 
STACK 
START2 
SUM 
Sw0} 
SwOS 
Sw09 
SwWi2 
Sw2 
Sw6é 
$15 
TRAPVE 
TTYINP 
TYPOS 
SBDADR 


000001 

000020 

0090400 
004000 
100000 
000040 
001000 
001702 
000000 
011003 
007524 
007600 
003064 
010247 
007640 
010066 
094332 
003044 
004304 
003522 
004660 
008474 
011423 
011201 
004262 
004266 
004272 
004276 
012334 
004510 
007312 
007252 


#8000007 


177776 
003724 


#8000003 
88000007 


001676 
002402 
002632 
0011300 
001512 
005476 
000002 
000046 
601000 
010000 
000004 
000100 
005030 
000034 
011534 
104404 
001244 

















SBDDAT 
$cm4 
SENDCT 
SERROR 
SFILLC 
SGET42 
SILLUP 
SLPADR 
sOCNnT 
SPWRDN 
SREGAD 
SREG3 
SSCOPE 
SSVLAD 
STKS 
STMP3 
STPS 
STSTNM 
sTYPOS 


ERRORS DETECTED: 





MAINDEC #11 eDZKHAeCA 
DZKHA,SRC 


001250 
000004 
006004 
006212 
001106 
006012 
007172 
001224 
006660 
007044 
001252 
001262 
006034 
006164 
003720 
001276 
001100 
001220 
006436 


0 


SYMBCL TABLE 


MACY11,624 

sc™mi s 000006 
SCRLF 001303 
sEOP 005762 
SERRTS 001306 
SFILLS 001105 
$HD #s 000003 
SITEMB 001236 
SLPERR 001226 
SOMODE 006662 
SPAWRUP 007112 
SREGO 001254 
SREG4 001264 
SSETUP = 000017 
SSWR ws 164000 
STMPO 001270 
STN = 000001 
STRAP 007014 
STYPE 001110 
SXTSTR 006042 


Z28eJANO74 


10:08 


,8CM2 
SDOAGN 
SERFLG 
SERRTY 
SGDADR 
SHINUM 
SLF 
SMXCNT 
sOVER 
SQUES 
SREGI 
SREGS 
8Ss 
STIMES 
STMPi 
STPB 
STRP 
sTypoc 
SOFILL 


PAGE 39 


* 000014 


006030 
001221 
006302 
001242 
007010 
001304 
006210 
006174 
001302 
001256 
001266 
000003 
004300 
001272 
001102 
000010 
006462 
006661 


$cM3 
SENDAD 
SERRKAD 
SERTTL 
SGDDAT 
SICNT 
SLONUM 
SNULL 
SPASS 
SRAND 
SREG2 
SSAVR6 
SSTUP 
STKB 
STMP2 
STPFLG 
STRPAD 
STYPON 


= 000006 


006020 
001240 
001230 
001246 
001222 
007012 
003104 
001216 
006664 
001260 
007176 
177777 
003722 
001274 
001107 
007034 
006476 


s 011642 
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DZKHA,SRC 


®DZKHA,DZKHA/SOL.DZKHA, SRC 
RUN@TIMES 21 13 0 SECONDS 
CORE USEDs 12K 






